main=f 0;f n=do c<-getChar;mapM print[n|c=='Y'];f$n+1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page