$/='mkd@h   lqvj}"    |[mhrqj@  WW   RB  ?=H
   ;]B     y[I  LO]   opq   rc@ PB   yS  MLQ
   }By    SS]    hlq  vj@   twq vP   GG  Rsa
   hPw    lbPB|=B?;Q  ^By_B|=B  ?;\eplP  ByQ
RH VVB    E|Q    QVD  :lD       ]m   rc  
 ch@I     ]{{   ';$n  ='4       km   j@  !vw

jpcl@(clr@0aeucl';$r=sub{$z=shift;$b[$_]=vec
($z,$_,1) for 0..7;my $v.=$b[0];$v.=$b[$_+1]
 .$b[$_] for (1,3,5);$v.=$b[7];return pack
    'b*',$v;};$n=~y/"\n / /d;$e=sub{eval
        $_[0];$";};$t=sub{join'',map(
           &$r($_),(split //,$_[0]
             ));};$"=&$t($n);$|=
              1;$/=~y/"\n / /d;
                &print(&$e(
                  &$t($/)
                    ));