+( Compile a literal value into the current word. )
+: LIT, IMMEDIATE ( x -- )
+ ' LIT , , ;
+
+: / /MOD DROP ;
+: MOD /MOD SWAP DROP ;
+: NEG 0 SWAP - ;
+
+: C,
+ HERE @ C!
+ HERE @ 1 +
+ HERE ! ;
+
+: OVER ( a b -- a b a ) SWAP DUP ROT ;
+
+( Compile the given string into the current word directly. )
+: STORE-STRING ( str len -- )