: 2swap ( x1 x2 x3 x4 -- x3 x4 x1 x2 ) rot ( -- x1 x3 x4 x2 ) >r ( -- x1 x3 x4 ) ( R: x2 -- ) rot ( -- x3 x4 x1 ) ( R: x2 -- ) r> ( -- x3 x4 x1 x2 ) ( R: -- ) ;