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