* LEAVE ( -- ) quit the innermost >DO .. >LOOP - it does even clean the return-stack and branches to the place directly after the next >LOOP
LEAVE
( -- )
>DO
>LOOP
core ordinary primitive