(loop(format t"~A~:*
~A
"(read-line)))