$NIP $HOME $NIP
$NIP
* $NIP ($: a$ b$ -- b$ )

Drop the next to top item from the string stack.
"string-nip" 
NOTE:  Because of essential string  space bookkeeping, the

system level implementation can be little more efficient than

the high-level definition:

     	: $NIP  $SWAP $DROP ;


 
 FORTH/DEF dstrings   ordinary primitive