$DROP
* $DROP ( $: a$ -- )

Drop the topmost string stack entry, marking it as garbage if
it is initially bound to the top of the string stack.
"string-drop"

FORTH/DEF dstrings ordinary primitive