diff --git a/extra/new-effects/new-effects.factor b/extra/new-effects/new-effects.factor
new file mode 100644
index 0000000000..dbb7b850d0
--- /dev/null
+++ b/extra/new-effects/new-effects.factor
@@ -0,0 +1,17 @@
+USING: assocs kernel sequences ;
+IN: new-effects
+
+: new-nth ( seq n -- elt )
+    swap nth ;
+
+: new-set-nth ( seq obj n -- seq )
+    pick set-nth ;
+
+: new-at ( assoc key -- elt )
+    swap at ;
+
+: new-at* ( assoc key -- elt ? )
+    swap at* ;
+
+: new-set-at ( assoc value key -- assoc )
+    pick set-at ;