COMPILE COMPILE, CONSTANT
COMPILE
* COMPILE ( 'word' -- )

compile the next word. The next word should not be immediate,
in which case you would have to use [COMPILE]. For this
reason, you should use the word POSTPONE, which takes care
it. 
 simulate:
   : COMPILE  R> DUP @ , CELL+ >R ;  ( not immediate !!! )

forth_83 compiling primitive