3DROP
* 3DROP ( x y z -- )

Drop the top three elements from the stack.
 : 3DROP   DROP 2DROP ;

FORTH/BASE forth_usual ordinary primitive