08-stack-effects.fth 175 B

123456789101112131415161718192021
  1. \ -
  2. ( x1 x2 -- n )
  3. \ drop
  4. ( x1 -- )
  5. \ dup
  6. ( x1 -- x1 x1 )
  7. \ over
  8. ( x1 x2 -- x1 x2 x1 )
  9. \ rot
  10. ( x1 x2 x3 -- x2 x3 x1 )
  11. \ nip
  12. ( x1 x2 -- x2 )
  13. \ tuck
  14. ( x1 x2 -- x2 x1 x2 )