Plaster

common-lisp
(defun reader () (with-input-from-string (input (read-line)) (let ((input-list nil) (input-value nil)) (loop while (setq input-value (read input nil)) do (push input-value input-list)) (reverse input-list))))