JAPH

#!/usr/bin/perl
 use strict;
  use warnings;
   my$k='my@a=((-4
    ,26,10,-4,-104,-
     56,-61,-79,-94,-
      127,-152,-162,-
       268,-245,-250,-
        264,-298,-403,-
         361,-399,-429,-
          454,-494,-516),
           @_);join"",map{
            chr$a[$_]+$a[$_+
             $#a/2+1]}0..$#a/2
              ';foreach(reverse(
                12..35)){$k="sub
                 {$k}->(\@_,int 
                  map{(int)x\$_}(
                   1..$_))"}print
                    eval $k;