(loop(format t"~:@(~A~)
~(~A~)
"#0=(read-line)#0#))