(dotimes(i 998)(format(eq(read-char)#\Y)"~D
"i))