diff --git a/extra/set-n/set-n.factor b/extra/set-n/set-n.factor
new file mode 100644
index 0000000000..97aa95199d
--- /dev/null
+++ b/extra/set-n/set-n.factor
@@ -0,0 +1,5 @@
+USING: assocs kernel math namespaces sequences ;
+IN: set-n
+: get* ( var n -- val ) namestack swap tail-slice* assoc-stack ;
+
+: set* ( val var n -- ) 1 + namestack [ length swap - ] keep nth set-at ;
\ No newline at end of file