2OVER ( a,a b,b -- a,a b,b a,a )
OVER
2DUP
simulate: : 2OVER SP@ 2 CELLS + 2@ ;
reference: p4_two_over in ../src/core.c:0460, export CO 2OVER