main=interact(\x->unlines[show a|(a,'Y')<-zip[0..]x])