Forth-eV Wiki

: 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: -- )  ;