@f=(22,52,0,13,5,1,160,2,2,125,53,3);@d=(15,17,19,21    );sub A{map{
($a,$b,$c,@f)=@f;$o=!$c?$a+$b:$c==1?$a*$b:$c==2?    $a/$b:$a-$b;$j[$
m++]=chr$o}@f}sub B{$g=pop;$c=$h{$g};$i=$r{$    g};$B='a';map{@{$i->
{$_}} = reverse @{$i->{$_}} if $c->{$B++    }!=$i->{$_}[0]} qw/v V/}
sub C{$g=pop;$c=$h{$g};$Z=$c->{a};$Y    =$c->{b};$S=$c->{c};$R=$c->{
d};$s=abs$R-$Y>abs$S-$Z;($Z,$Y,$    R,$S)=($Y,$Z,$S,$R)if$s;($S,$Z,$
R,$Y)=($Z,$S,$Y,$R)if$Z>$S;$    l=$S-$Z;$n=abs$R-$Y;$Q=0;$y=$Y;$P=($
Y<$R)?1:-1;;$O=-1; ;map{$    O++;$r{$g}->{v}[$O]=($s)?$y:$_;$r{$g}->
{V}[$O]= ($s)?$_:$y;;$    Q+=$n;if(2*$Q>=$l) {$y+=$P;$Q-=$l}}$Z..$S}
sub D{($N,$k,$M,$L,    $K)=@_;map{$J=$L==$d[$_]}0..$K-1if($K&&$M==12
);$J||print"\e["    ."$M;${L}H\e[${k}m$N\e[m";}$|=print "\e[H\e[J";A
;map {$*=int     rand 50;$,=int rand 24;$h{$j[$_]}={};$"=$h{$j[$_]};
$"->{a}=$    *;$"->{b}=$,;$"->{k}=101+$_;$"->{c}=$d[$_];$"->{d}=12;;
$"->{I    }=$j[$_]}0..3;map{C$j[$_];;B$j[$_]}(0..$#j);@q=@{$r{$j[0]}
->    {v}};@u=@{$r{$j[0]}->{V}};;map{$H=$h{$j[$_]};@q=@{$r{$j[$_]}->
{v}};;@u= @{$r{$j[$_]}-> {V}};$F=$_;;map {D" ",0,$H->{b},$H->{a},$F;
$H->{a}=$q[$_];;$H->{b}=$u[$_];D$H->{I},$H->{k},$H->{b},$H->{a}, $F;
select$G,$G,$G,.05}0..$#q;$_=$F}0..$#j;print "\e[30;1H" #by wulvrine