$_=join"",<>;s/\n/a/g;s/./$i++&&()/e,$&eq"Y"&&(print$i-2,"\n")while/./