-: LOOP IMMEDIATE
- ' R> , ' R> , ' 1+ , ' 2DUP , ' - ,
- ' SWAP , ' >R , ' SWAP , ' >R ,
+: J RSP@ 6 - @ ;
+
+: ?LEAVE IMMEDIATE
+ ' 0BRANCH , 13 ,
+ ' R> , ' RDROP , ' RDROP ,
+ ' LIT , HERE @ 7 + , ' DUP , ' -ROT , ' - , ' SWAP , ' ! ,
+ ' BRANCH ,
+ 0 ,
+;
+
+: LEAVE IMMEDIATE
+ ' LIT , -1 ,
+ [COMPILE] ?LEAVE
+;
+
+: +LOOP IMMEDIATE
+ ' R> , ' SWAP , ' R> , ' SWAP , ' R> , ' SWAP , ' + , ' 2DUP , ' - ,
+ ' SWAP , ' >R , ' SWAP , ' >R , ' SWAP , ' >R ,