LOOP
* LOOP ( -- )

resolves a previous DO thereby compiling ((LOOP)) which
does increment/decrement the index-value and branch back if
the end-value of the loop has not been reached.

FORTH/ANS core (dpANS.6.1.1800) compiling primitive