$_="just another perl hacker!";$|=print"\ec";print@b=sort{rand cmp rand}
@a=split//;sub p{print"\e[$_[1];$_[0]H".($_[2]||$e)}while($e=$a[$g++]){
$f=0;{redo if$b[$f++]ne$e}$b[$f-1]=0;p($f,1,$");$i=$f-$g<0?1:-1;while($f
!=$g){select$q,$q,$q,p($f,2)/20;p(($f+=$i)-$i,2,$")}p($f,3,$e.$/)}