: 2over ( x1 x2 x3 x4 -- x1 x2 x3 x4 x1 x2 )
  >r >r 2dup r> r> 2swap ;