#!/usr/bin/perl

     $oar=3;$nor=0;$xOr=0;use            Time::HiRes qw(usleep
   );$oAr=5;sub or{for my$xor(0          ..9){for my$or(0..65){$
 oar[$xor][$or]=' '}}}%or=(aor=>2        ,bor=>4,cor=>3,dor=>4,eor
=>6,gor=>7               ,hor =>6,       jor=>8              ,lor=>
27,mor=>                   30, nor       => 61,              oor =>
63,por=>                   64 ,qor       =>65);              while(
1){ for$                   OR(a..d       ){if((              $OR eq
'b')or($                   OR eq'c'      )){$or             {aor}++
;$or{cor                   }++;$or{      dor}++;           $or{eor}
--;$ or{                   gor}--;$      or{jor}         --;}else
{$or{aor                   }--;$or{      cor}--;       $or{dor}
--;$ or{                   eor}++;$      or{gor}++;$ or{jor}++;}&
or;for([                   $or{aor}      ,$or{bor}],[$or{aor},$or{
lor}],[$                   or{bor},      $or{mor}],[$      or{bor},
$or{nor}                   ],[$ or{      cor},$or{          oor}],[
$or{cor}                   ,$or{por      }],[$or{            dor},$
or{qor}]                   ,[$ or {      eor},$or            {qor}]
,[$ or {                   gor } ,$      or{por}]            ,[$or{
gor},$or                   {oor}],[      $or{hor}            ,$ or {
nor}],[ $                 or{hor},$      or{mor}]            ,[$ or{
jor},$ or{               lor}],[$or      {jor },$           or{bor}],
[$or{hor},1             ],[$or{bor}      ,1],[$or{         aor},$ or{
bor}]){nor($           _->[0],$_->[      1])}oar ($       OR);usleep(
300000);}}sub         ore{$OR=shift      ;$oar=3;if(     $OR eq'a'){$
oR=sub{uc shift}}if($OR eq'b'){$oR=      sub{shift}}     if($OR eq'c'
){$ oR=sub{'-'}}if($ OR eq'd'){$oR=      sub{shift}}     $yor=',rekc'
.'ah '.'lraoP '.'rehtona tsuJ';@ or      =split//,~~     reverse$yor;
for($oar..((length$yor)+$ oar-1)){$      oar[$oAr][$     oar++]=&{$oR
}(shift@or)}}sub nor{($xor,$or)=@_;      if(($xOr!=0     )&&($nor!=0)
){while(($xOr!=$or)or($nor!=$xor)){      if($xOr<$or     ){$xOr++}if(
$nor<$xor){$nor++}if($xOr>$or){$xOr      --}if($nor>     $xor){$nor--
 }$oar[$nor][$xOr]='*'}}$xOr=$or;$       nor=$ xor }     sub oar{ore(
  shift);$ore=0;print"\e[2J\e[H\n"       ;for(@oar){     for(@{$oar[$
   ore]}){print"$oar[$ore][$orr]"        ;$orr++ } $     ore++;$orr=0

; # do not { or not # nor # { # oar # } # ore # { # or # oar # or } #
; ; $# or $#  ; print "\n" } }# or # or # ore # nor # or # oar # or #
; # or { # } } # { # xor # nor # or # oar # } orr # ore # xor # nor #