* 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.
LOOP
( -- )
DO
((LOOP))
FORTH/ANS core (dpANS.6.1.1800) compiling primitive