END { print " \n" } 
sub b { $_ } 
sub c { -shift } 
sub d { chr shift } 
sub e { $_[ 0 ] + $_[ 1 ] } 
sub f { e(0, 1) } 
sub g { e(f, c(f)) } 
sub h { e(f, f) } 
sub i { e(f, c(shift)) } 
sub j { $_[ g ]**h } 
sub k { j(h) } 
sub l { e(h, f) } 
sub n { j(j(l)) } 
sub o { e(k, f) } 
sub p { e(j(k), c(l)) } 
sub r { (p, @_) } 
sub t { $_[ g ] ** l } sub u { j(t(h)) } 
sub v { e(t(h), c(f)) } 
sub w { e(t(h), h) } 
sub z { $_[ g ] * $_[ f ] } 
my $t = e(z(h, v), c(p)); 
for(
    e(u, j(l)), 
    e(j(v), i(v)), 
    c(h), 
    f, 
    c(e(u, z(h, w))), 
    z(p, o),
    r(f, o, i(p), c(l)),  
    r(c(e(f, n)), z(l, j(k)), z(l, v)), 
    r(
        i(v), 
        e(o, c(n)), 
        z(k, z(h, j(l))), 
        c(v), 
        h, 
        t(h), 
        e(h, t(c(h)))
    ),
    r(c(e(o, z(o, p))))
) { 
    $t += b and print d $t
}
__END__