END { print " \n" }
sub b { $_ }
sub c { -shift }
sub d { chr shift }
sub e { $_[ 0 ] + $_[ 1 ] }
sub f { 1 }
sub g { 0 }
sub h { 2 }
sub i { 1 - shift() }
sub j { shift()**2 }
sub k { 4 }
sub l { 3 }
sub n { 81 }
sub o { 5 }
sub p { 13 }
sub r { 13, @_ } # 13 = ord('r') - ord('e') = ord('n') - ord('a')
sub t { shift()**3 }
sub u { 64 }
sub v { 7 }
sub w { 10 }
sub z { shift() * shift() }
my $t = 1;
for(
    73, 43, -2, 1, -84, 65,
    r(1, 5, -12, -3),
    r(-82, 48, 21),
    r(-6, -76, 72, -7, 2, 8, -6),
    r(-70)
) {
    $t += $_ and
        print chr $t
}
__END__