diff --git a/extra/cursors/cursors.factor b/extra/cursors/cursors.factor
index 84b3d0ef78..1d02311c2f 100644
--- a/extra/cursors/cursors.factor
+++ b/extra/cursors/cursors.factor
@@ -484,5 +484,11 @@ ALIAS: -2container- -assoc-
 : 2container- ( a b quot -- begin end quot' )
     2all- -2container- ; inline
 
+: 2each ( ... a b quot: ( ... x y -- ... ) -- ... )
+    2container- -each ; inline
 
+: 2map-as ( ... a b quot: ( ... x y -- ... z ) exemplar -- ... c )
+    [ 2container- ] dip -map-as ; inline
 
+: 2map ( ... a b quot: ( ... x y -- ... z ) -- ... c )
+    pick 2map-as ; inline