(loop for i from(read)to(if(read-char)(read))do(format t"~D
"i))