とりあえず、答え見なくても
問題を解くだけなら、何とかクリアできた。
縮めていくが、どこまでいけるか心配。。。

【初稿】 87 バイト

f n[]=[]
f n(x:s)|'Y'==x=n:f(n+1)s|1>0=f(n+1)s
main=do s<-getContents
	mapM print$f 0 s

【修正後1】 78 バイト

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)