Forth

http://www.forth.org/, Gordon Charlton: Introduction to Forth using StackFlow

100 9 5 */ 32 + . [cr] 212 ok

Stack-Operationen:

• SWAP (ab$\to$ba)
• ROT (abc$\to$bca)
• DUP (a$\to$aa)
• OVER (ab$\to$aba)
• DROP (a$\to$)

Euklid:

BEGIN  DUP  WHILE  TUCK MOD  REPEAT  DROP ;

WHILE testet top of stack. Was macht TUCK?