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
}