ANEW
* ANEW ( 'name' -- )

creates a >MARKER if it doesn't exist,
or forgets everything after it if it does. (it just gets executed).
 : ANEW BL WORD   DUP FIND NIP IF EXECUTE THEN   (MARKER) ;

core ordinary primitive