(loop for i from(read)upto(if(read-char)(read))do(format t"~A
"i))