ok>
DUP ( n -- n n )DROP ( n -- )SWAP ( a b -- b a )OVER ( a b -- a b a )ROT ( a b c -- b c a )NIP ( a b -- b )TUCK ( a b -- b a b ).S show stackDEPTH stack depth>R R> R@ return stackIF … THENIF … ELSE … THENBEGIN … UNTILBEGIN … WHILE … REPEATn lim DO … LOOPn lim DO … step +LOOPLEAVE exit loopRECURSE self-call+ - * / MOD /MODNEGATE ABS MAX MIN1+ 1- 2+ 2- 2* 2/= < > <> <= >=0= 0< 0>. print TOSEMIT print charCR SPACE SPACES." text" print string@ ! +! fetch/store? fetch+printWORDS list all wordsSEE name decompile