Added tst.lsp; a test program for this lisp