* 2OVER ( a,a b,b -- a,a b,b a,a ) double-cell over, see >OVER and >2DUP simulate: : 2OVER SP@ 2 CELLS + 2@ ;
2OVER
( a,a b,b -- a,a b,b a,a )
>OVER
>2DUP
simulate: : 2OVER SP@ 2 CELLS + 2@ ;
core ordinary primitive