main=f 0;f n=do c<-getChar;mapM print[n|c=='Y'];f$n+1