diff --git a/examples/mandelbrot.modal b/examples/mandelbrot.modal
new file mode 100644
index 0000000..e24912c
--- /dev/null
+++ b/examples/mandelbrot.modal
@@ -0,0 +1,33 @@
+<> (iterating ?x ?y (100) ?z  ?a ?b) (?((?:) ?:) *\s)
+<> (iterating ?x ?y ?n    (1) ?a ?b) (?((?:) ?:) \s\s)
+
+<> (iterating (?x) (?y) (?n) (?c) (?a) (?b)) (
+    iterating (?x) (?y) (?n 1 `+) (?a ?a f* ?b ?b f* `+ 4096 `>) 
+                                  (?a ?a f* ?b ?b f* `- ?x `+) 
+                                  (?a ?b 2048 f* f* ?y `+)
+)
+
+
+<> (?0 ?1 f*) (?0 ?1 `* 1024 `/)
+<> (?0 ?1 f/) (?0 1024 `* ?1 `/)
+<> (?0 ?1 `?:) ?:
+
+<> (mandelbrot (?x) (?y)) (
+    plot-mandelbrot (0) (0) (2529 ?x `/) (2293 ?y `/) (-2048) (-1146)
+)
+
+<> (plot-mandelbrot (40) (36) (?r) (?d) (?x) (?y)) ()
+
+<> (plot-mandelbrot (40) (?j) (?r) (?d) (?x) (?y)) (
+    ?(?: ?:) \n 
+    iterating (?x) (?y) (0) (0) (0) (0)
+    plot-mandelbrot (0) (?j 1 `+) (?r) (?d) (-2048) (?y ?d `+)
+)
+
+<> (plot-mandelbrot (?i) (?j) (?r) (?d) (?x) (?y)) ( 
+    iterating (?x) (?y) (0) (0) (0) (0)
+    plot-mandelbrot (?i 1 `+) (?j) (?r) (?d) (?x ?r `+) (?y)
+)
+
+
+mandelbrot (40) (36)
diff --git a/src/modal.c b/src/modal.c
index d2986ae..bf8e2f4 100644
--- a/src/modal.c
+++ b/src/modal.c
@@ -5,7 +5,7 @@ typedef struct {
 	char *a, *b;
 } Rule;
 
-static int flip, quiet, debug, cycles = 0x10000;
+static int flip, quiet, debug, cycles = 0x200000;
 static Rule rules[0x1000], *rules_ = rules, lambda;
 static char dict[0x8000], *dict_ = dict, empty;
 static char bank_a[0x4000], *src_ = bank_a;