* BEGIN ( -- ) compile-time: ( -- cs-marker ) start a control-loop, see >WHILE and >REPEAT
BEGIN
( -- )
compile-time: ( -- cs-marker )
>WHILE
>REPEAT
core compiling primitive