my @stack;
my $acc = 0;

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

INC;
INC;
PUSH;
ADD;

print($acc, "\n");