$p = sub{$_='JA{23z11z\'2z23z42)"2)*++,z:1-.(6>F=>y3EFGEML'. 'LMMNM[ksz7Ez6I{3Qz3Mz)Qz2Kz1Iz2G{2=z2;z38z49z48|37z27z17z'. '16z25z43z33z51z7\'z71z81&zE2zK\'zU!zO\'zK)z=30(\'55-5<[aq'. 'z5=z5Ez6ErkSS>7/7\'&z91-<=C<<;4D<' .'DDCD;DC;y3CJJy4Iz47IIJRRSbZcb[ck[[[' .'[T\L' .'TLLM' .'NFE=67>>DD<67(/.6-4<;CC;CCA:JBJJ' .'IJJR' .'biz6' .'=z4;qz6=z6Gz6=kjqz6Eiy3bZRSSRC4&\'z' .';1\'' .'z;1.' .'<<DML' .'LDED' .'ELDC' .'C==' .'5ELD' .'DLIQYYZQbYZZb[[S[[LSy3LMMEFE>=-\'..' .'5,+,' .',,34' .';;;4;y3CD[ckz6=z5Ez6ErrskjbZ[ZSJ;3$' .',4D4' .'5--4' .'($q=(ord$1)-1)){$b=int($q/8); push@if ,$q-8*$ b-2,$b-9;} else {s-(.)(.)--;push@ if,( ord($1) - 0x37, ord($2)-55)x($q-120);}}\@if;}split' '] )}; use Tk; $W= new MainWindow;$V=$W->Canvas(-height=> 300,-bg =>"#ff" ."ffef",-width=>700)->pack;$W->Button( -text=> "Exit", -command=>sub {exit},-bg=>'#ffef00')-> pack;$W ->after (99=>$p);MainLoop;sub x{my$p=$_[0];for ($v=0;$ v<@$p;$ v++){$z=$p->[$v];$r=sprintf"#%06x",($v <2)?0:( $v<4 )? 4243520:($v<6)?1671168_0:($v<7)?33023: 8323199 ;$w=($v <7)?5:25;$e=(0x8a,220,387,440,151,165, 321,649 ,627)[$ v];$f=(0x70,66,88,55,168,255,219,13_5, 239)[$v ];while (@$z){($g,$h)=splice(@$z,0,2);($i,$j)= ($e+$g, $f+$h); $V->createLine($e,$f,$i,$j,-width=>$w, -fill=> $r);($e ,$f)=($i,$j);map{$V-> update}(0 .. 100 ) ; ; } } } ; #