diff --git a/srfi/1.sld b/srfi/1.sld
new file mode 100644
index 00000000..cc4027ba
--- /dev/null
+++ b/srfi/1.sld
@@ -0,0 +1,8 @@
+(define-library (1) ; (srfi 1)
+  (import (scheme base))
+  (export
+    iota
+  )
+  (include "1.scm")
+  (begin)
+)
diff --git a/srfi/test-1.scm b/srfi/test-1.scm
new file mode 100644
index 00000000..d36b9c65
--- /dev/null
+++ b/srfi/test-1.scm
@@ -0,0 +1,10 @@
+(import (scheme base)
+        (scheme write)
+        (scheme cyclone pretty-print)
+        (1))
+
+(pretty-print `( 
+  ,(iota 10)
+  ,(iota 10 5)
+  ,(iota 10 5 10)
+))