COMPILE COMPARE COMPILE,
COMPILE word ( )  
smart-word <FORTH-83>
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 !!! )

reference: p4_compile in ../src/forth-83.c:0067, export CS COMPILE