$a=q`$a="\$a=q".($t=chr+96).$a.$t.';$a=~s#\s##g;eval$a#';$_="73x05100505
07070403040320x080407030103060303030203040320x08040603030305030303020304
0320x080405110407041020x08040404050403030803040320x020303040304070402030
803040320x03080403090302030803040320x73";@z=map{$d=0;s#..#$d=!$d;($d||0)
x$&#eg;$_=[split//]}split/x/;{$b=reverse$a;system'cls';$c=0;map{for(@$_)
{print$_?(chop$b):$"}print$/;$_=[@$_[0],@$_[70],@$_[1..69],@$_[71]];}@z;
select$q,$q,$q,.05;redo}`;$a=~s#\s##g;eval$a############################