pick:core — ordinary primitive
FORTH
PICK ( n -- value )();p4:"pick";
PICK ( n -- value )(
)
pick the nth value from under the top of stack and push it note that
0 PICK -> DUP 1 PICK -> OVER
dpANS .6.2.2030 - standard forth word