$PICK
* $PICK ( u $: au$ ... a0$ -- au$ ... a0$ au$ )

Copy the u-th string stack entry to the top of the string stack. The
string value is not copied. Throw an error if the input string stack
does not have at least u+1 items. "string-pick"

dstrings ordinary primitive