diff --git a/peanomod.ld b/peanomod.ld
new file mode 100644
index 0000000..03fcd6f
--- /dev/null
+++ b/peanomod.ld
@@ -0,0 +1,89 @@
+let d = 50
+
+pw!(5)
+rt!(0.25)
+
+fn y!
+
+& comment for strange Peano variation
+& uncomment for standard Peano curve
+& fn f! (n) -> fd!(d)
+
+& comment for standard Peano curve
+& uncomment for strange Peano variation
+fn f! {
+  (0) -> fd!(d)
+  (n) -> {
+    f!(dec(n))
+    rt!(0.25)
+    f!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    f!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    f!(dec(n))
+  }
+}
+
+fn x! {
+  (0) -> nil
+  (n) -> {
+    x!(dec(n))
+    f!(dec(n))
+    y!(dec(n))
+    f!(dec(n))
+    x!(dec(n))
+    rt!(0.25)
+    f!(dec(n))
+    rt!(0.25)
+    y!(dec(n))
+    f!(dec(n))
+    x!(dec(n))
+    f!(dec(n))
+    y!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    lt!(0.25)
+    x!(dec(n))
+    f!(dec(n))
+    y!(dec(n))
+    f!(dec(n))
+    x!(dec(n))
+  }
+}
+
+fn y! {
+  (0) -> nil
+  (n) -> {
+    y!(dec(n))
+    f!(dec(n))
+    x!(dec(n))
+    f!(dec(n))
+    y!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    lt!(0.25)
+    x!(dec(n))
+    f!(dec(n))
+    y!(dec(n))
+    f!(dec(n))
+    x!(dec(n))
+    rt!(0.25)
+    f!(dec(n))
+    rt!(0.25)
+    y!(dec(n))
+    f!(dec(n))
+    x!(dec(n))
+    f!(dec(n))
+    y!(dec(n))
+  }
+}
+
+x!(3)