three-dup:toolbelt — ordinary primitive
FORTH
3DUP ( x y z -- x y z x y z )(
)
Copy top three elements on the stack onto top of stack.
: 3DUP THIRD THIRD THIRD ;
or
: 3DUP 3 PICK 3 PICK 3 PICK ;