DO
* DO ( end start -- ) ... LOOP

pushes $end and $start onto the return-stack ( >>R )
and starts a control-loop that ends with >LOOP or
>+LOOP and may get a break-out with >LEAVE . The
loop-variable can be accessed with >I

core compiling primitive