read b
a=\ 
(while [ "${a/*s*}${a/*t*}${a/*o*}${a/*p*}" != '' ];do a=${b::++c};done
echo $a)
((d++<100))&&. *