(loop(format t"~D
"(round(read-from-string(format()"~A1l0"(read-line))))))