($s=pop|1)>8or$s|=8;sub f{$_=.5+($h=int$s/2)+$h*$_}$|=@m=map[($")x$s],1..$s
   ;$j='  ,rekcah  lreP  rehtona  tsuJ  ';for(0..31){f,$_-=/-/for$x=cos($d=$
    _*.19635),$y=sin$d;$m[$y[$_]=$y][$x[$_]=$x]=chop$j}{$j=$m[$y[0]][$x[0]]
     ;print"\e[H\e[J",map"@$_\n",@m;map$m[$y[$_-1]][$x[$_-1]]=$m[$y[$_]][$
      x[$_]],1..31;$m[$y[-1]][$x[-1]]=$j;select$,,$,,$,,.1;redo}chipmunk;