* 4DROP ( x y z -- ) Drop the top three elements from the stack. : 4DROP 2DROP 2DROP ;
4DROP
( x y z -- )
: 4DROP 2DROP 2DROP ;
forth_usual ordinary primitive