#!/usr/local/bin/clisp /home/jfrancis/lisp/thing.lisp