: ORIG HERE 0 , ;

: IF` 0=GOTO` ORIG ;
: THEN` HERE SWAP ! ;
: ELSE` GOTO` ORIG SWAP THEN` ;

: BEGIN` HERE ;
: AGAIN` GOTO` , ;
: UNTIL` 0<>GOTO` , ;
: WHILE` IF` ;
: REPEAT` SWAP GOTO` , THEN` ;

: CASE` GOTO` ORIG HERE GOTO` 0 , SWAP THEN` ;
: OF` OVER` =` IF` DROP` ;
: ENDOF` OVER AGAIN` THEN` ;
: ENDCASE` 1 CELLS + THEN` ;
: (WITHIN-OF) 2 PICK -ROT WITHIN ;
: WITHIN-OF` (WITHIN-OF)` IF` DROP` ;