(defparameter *foo*
  '(loop (eval (read *standard-input* nil))))

(eval *foo*)