* AGAIN ( -- ) ends an infinite loop, see BEGIN and compare with WHILE
AGAIN
( -- )
BEGIN
WHILE
FORTH/ANS core (dpANS.6.2.0700) compiling primitive