(loop(format t"~D
"(round(read))))