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