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