remark
  just a little stack prog to test 
  the functionality of your stack machine
kramer

remark
  here we compute some thingies and print them to stdout
  ...uuuuhhhh... exiting!
kramer
1 1 add show
-1.0 1.0 sub show
remark
  how many items are on the stack?
kramer
count show
remark
  throw the counter away
kramer 
pop
remark
  need to do explicit type casting
kramer
int
remark
  now we can multiply
kramer
mul show
remark
  should be almost zero
kramer
float
10e10 div show
remark
  throw everything away
kramer
clear
remark
  did you really do it?
kramer
count show pop
remark
  just add some symbols (east german cartoon figures)
  with some redundancy
kramer
abrafaxe diggedags fix fix und foxi foxi
remark
  are foxi and foxi equal?
  they should be
kramer
equal show
remark
  boolean value can be compared also
kramer
false equal show pop
remark
  'und' should be greater than 'fix'
kramer
greater show pop
remark
  'fix' should not be less than 'diggedags'
kramer
lessthan show pop
remark
  test if
  should pop 2 values since top equals false
kramer
show
quote pop
remark
  should not raise an exception since pop has been quoted
kramer
show
remark
  let's create a type mismatch exception here
kramer
if