(dotimes(n 999)(if(eq?(read-char)#\Y)(print n)))