two-dup:core — ordinary primitive
FORTH
2DUP ( a,a -- a,a a,a )();p4:"two-dup";
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 ; !!)
dpANS .6.1.0380 - standard forth word