FORGET
* FORGET ( "word" -- )
 simulate:
   : FORGET  [COMPILE] '  >NAME (FORGET) ; IMMEDIATE

FORTH/ANS tools (dpANS15.6.2.1580) ordinary primitive