tcl set engine engine0.c

  Hprims COL CON
 SFprims EXIT TIMES DUP
FIPprims RETURN
syns COL: :  EXIT ;  TIMES *

' 2      CON: asm dd 2
' SQUARE    : DUP * ;
' CUBE      : DUP SQUARE * ;

asm global ADR_DEMO
' DEMO      : 2 CUBE ;