(loop(format t"~A
"(ash 1(integer-length(read)))))