(loop(format t"~A
"(read)))