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