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