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