#!/usr/bin/perl

use strict;
use warnings;

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;