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 DUP ROT + ( n i b a+b )
75 DROP SWAP DROP SWAP DROP ; ( a+b )
82 : OVER ( a b -- a b a ) SWAP DUP ROT ;
84 ( Compile the given string into the current word directly. )
85 : STORE-STRING ( str len -- )
96 ' HELLO-ADDR LIT, TELL NEWLINE ;
102 S" (Expected: 59)" TELL NEWLINE