third:toolbelt — ordinary primitive
FORTH
THIRD ( x y z -- x y z x )();p4:"third";
THIRD ( x y z -- x y z x )(
)
Copy third element on the stack onto top of stack.
: THIRD 2 PICK ;