[IF]
* [IF] ( flag -- )

check the condition in the CS-STACK. If true let the following
text flow into INTERPRET , otherwise eat up everything upto
and including the next >[ELSE] or [THEN] . In case of
skipping, count nested [IF] ... [THEN] constructs.
 this word provides a simple pre-compiler mechanism

tools immediate primitive