f n[]=[]
f n(x:s)|'Y'==x=show n:f(n+1)s|1>0=f(n+1)s
main=interact$unlines.(f 0)