[ S" [" FIND >CFA , ]
EXIT
[ IMMEDIATE
+
+: / /MOD DROP ;
+: MOD /MOD SWAP DROP ;
+: NEG 0 SWAP - ;
+
+: IF IMMEDIATE
+ ' 0BRANCH ,
+ HERE @
+ 0 ,
+;
+
+: THEN IMMEDIATE
+ DUP
+ HERE @ SWAP -
+ SWAP !
+;
+
+: ELSE IMMEDIATE
+ ' BRANCH ,
+ HERE @
+ 0 ,
+ SWAP DUP HERE @ SWAP - SWAP !
+;
+