AGAIN ADDR>NAME AHEAD
AGAIN
* AGAIN ( -- )

ends an infinite loop, see >BEGIN and compare with
>WHILE

core compiling primitive