my @stack;
my $acc = rand;

sub PUSH() { push(@stack, $acc); }
sub POP()  { pop(@stack);        }
sub INC()  { $acc++;             }
sub ADD()  { $acc += POP;        }
sub SUB()  { $acc -= POP;        }

PUSH;
SUB;
INC;
INC;
PUSH;
ADD;

print("$acc\n");