Name

three-dup:toolbelt — ordinary primitive

Synopsis

FORTH
3DUP ( x y z -- x y z x y z )(); 
 ;

Description

Copy top three elements on the stack onto top of stack.

 : 3DUP   THIRD THIRD THIRD ;

or

 : 3DUP  3 PICK 3 PICK 3 PICK ;