set i 0;foreach l [split [read stdin] ""] {if \$l==Y puts\ $i;incr i}