(dotimes(i 999)(if(eq(read-char)#\Y)(format t"~D
"i)))