(defun main ()
   (print "lisp> ")
   (set expr (input))
   (print (eval expr))
   (print "\n")
   (main)
)

(main)
