* 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 ; !!)
2DUP
( a,a -- a,a a,a )
simulate: : 2DUP OVER OVER ; ( wrong would be : 2DUP DUP DUP ; !!)
FORTH/ANS core (dpANS.6.1.0380) ordinary primitive