(loop(defun r(s)(if(symbolp s)`(,@#0=(r(read)),@#0#,s)`(,s)))(format t"~{~A~^ ~}
"#0#))