(defun f(&rest r)(reduce'list`("f",@r)))(loop(#0=format t"~A
"(read-from-string(#0#/"#.(~A)"(read-line)))))