diff --git a/examples/g_spiral1.lisp b/examples/g_spiral1.lisp
new file mode 100644
index 0000000..c2fcc22
--- /dev/null
+++ b/examples/g_spiral1.lisp
@@ -0,0 +1,24 @@
+(
+ (defn rec
+  (v)
+  (if (gt v 0)
+   ((stroke 
+     (circle 
+      (add 300 
+       (mul (cos (add  (div v 17) (div (time) 2000))) 
+        (div v 2)
+       )
+      )
+      (add 300 
+       (mul (sin (div v 11)) 
+        (div v 2)
+       )
+      )
+      (div v 2))
+     1 "rgba(255,255,255,0.1")
+    (rec (sub v 0.3))
+   )
+  )
+ )
+(rec 300)
+)