2DUP
* 2DUP ( a,a -- a,a a,a )

double-cell duplication, also used to duplicate
two items
 simulate:
   : 2DUP OVER OVER ; ( wrong would be : 2DUP DUP DUP ; !!) 

core ordinary primitive