Help for this page

Select Code to Download


  1. or download this
    END{s{}{"@{[map{$%=$_;$_=&{$_{$_}};$%%2&&s%.%\u$&%;$_}($|..${$/=\
($^A+$|+$?)})]},"}e;print}($,,$,,+$*,$,,$,)=($|..$=/(+++$^A+$^A)*
...
sub{local$";"@{[(split//,(chr($^A-$|+ord(substr(&{$_{$^A-$|}},+$?
..++$?)))).&{$_{$,/($^A-$|)}}.chr(2*$=-$^A*$,-$|))[$,+$|,$|,$--$|
,+-+$|,-$|x$?,+$=/(0+$,*+$*+-+-$*),$,+-+-~~$*+-+-$|]]}"});__END__
  2. or download this
    J:\>perl japh
<60|2|4|1|&#8735;>
<60|2|4|1|&#8735;>
...
<60|2|4|1|&#8735;>
<60|2|4|1|&#8735;>
R`st anothma [map hackma,