: 2swap ( x y z t -- z t x y ) 2 2 mnswap ; inline
: 2pick ( x y z t -- x y z t x y ) reach reach ; inline
+
+: 5roll ( a b c d e -- b c d e a ) [ roll ] dip swap ; inline
+
+: 2reach ( w x y z -- w x y z w x ) reach reach ; inline
+
+: nipdd ( w x y z -- x y z ) roll drop ; inline