(for i 0 997(if(is(readc)#\Y)prn.i))