Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
add
mul
print

Select or download this

TOS='-nil-' stmt = 'push 3'
TOS='3' stmt = 'push 5'
...
TOS='oranges+9+bananas*peels' stmt = 'mul'
TOS='(3+5+apples)*(oranges+9+bananas*peels)' stmt = 'print'
out: '(3+5+apples)*(oranges+9+bananas*peels)'