$DEPTH $CWD $DEPTH
$DEPTH
* $DEPTH ( -- n )

Leave the number of items on the string stack.
"string-depth"

FORTH/DEF dstrings ordinary primitive