29 SWAP DUP HERE @ SWAP - SWAP !
57 ( Compile a literal value into the current word. )
58 : LIT, IMMEDIATE ( x -- )
62 : MOD /MOD SWAP DROP ;
70 : OVER ( a b -- a b a ) SWAP DUP ROT ;
72 ( Compile the given string into the current word directly. )
73 : STORE-STRING ( str len -- )