3DUP 3 4DUP
3DUP ( a b c -- a b c a b c )  
<FORTH-83-L&P>
 simulate:
   : 3DUP  3 PICK 3 PICK 3 PICK ;

reference: p4_three_dup in ../src/lpf83.c:0171, export CO 3DUP