diff --git a/contrib/shuffle/shuffle.factor b/contrib/shuffle/shuffle.factor
index e55264917e..c0f7116a38 100644
--- a/contrib/shuffle/shuffle.factor
+++ b/contrib/shuffle/shuffle.factor
@@ -21,3 +21,7 @@ IN: shuffle
 
 : map-with2 ( obj obj list quot -- newseq )
     swap [ with2 roll ] map 3nip ; inline
+
+: each-with2 ( obj obj list quot -- )
+    swap [ with2 roll ] map 3drop ;
+