(do((i 0(1+ i)))(())(format(eq(read-char)#\Y)"~D~%"i))