END { print " \n" }
sub I { $_ }
sub II { -shift }
sub III { chr shift }
sub IV { $_[ 0 ] + $_[ 1 ] }
sub V { IV(0, 1) }
sub VI { IV(V, II(V)) }
sub VII { IV(V, V) }
sub VIII { IV(V, II(shift)) }
sub IX { $_[ VI ]**VII }
sub X { IX(VII) }
sub XI { IV(VII, V) }
sub XII { IX(IX(XI)) }
sub XIII { IV(X, V) }
sub XIV { IV(IX(X), II(XI)) }
sub XV { (XIV, @_) }
sub XVI { $_[ VI ] ** XI } 
sub XVII { IX(XVI(VII)) }
sub XVIII { IV(XVI(VII), II(V)) }
sub XIX { IV(XVI(VII), VII) }
sub XX { $_[ VI ] * $_[ V ] }
my $XVI = IV(XX(VII, XVIII), II(XIV));
for(
    IV(XVII, IX(XI)),
    IV(IX(XVIII), VIII(XVIII)),
    II(VII),
    V,
    II(IV(XVII, XX(VII, XIX))),
    XX(XIV, XIII),
    XV(V, XIII, VIII(XIV), II(XI)),
    XV(II(IV(V, XII)), XX(XI, IX(X)), XX(XI, XVIII)),
    XV(
        VIII(XVIII),
        IV(XIII, II(XII)),
        XX(X, XX(VII, IX(XI))),
        II(XVIII),
        VII,
        XVI(VII),
        IV(VII, XVI(II(VII)))
    ),
    XV(II(IV(XIII, XX(XIII, XIV))))
) {
    $XVI += I and print III $XVI
}
__END__