From 6abb963a40c19e802a22aeee14cccf0066090794 Mon Sep 17 00:00:00 2001
From: Quentin Leonetti <q.leonetti@gmail.com>
Date: Sun, 14 Jul 2019 06:22:48 +0200
Subject: [PATCH] add recursive example

---
 examples/recursive.lisp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 examples/recursive.lisp

diff --git a/examples/recursive.lisp b/examples/recursive.lisp
new file mode 100644
index 0000000..08bd296
--- /dev/null
+++ b/examples/recursive.lisp
@@ -0,0 +1,15 @@
+(
+  (clear)
+  (def rec 
+    (lambda (v)
+      (if (gt v 0)
+        (
+          (stroke (circle
+                    (mul 5 v)
+                    (mul 5 v)
+                    (mul 5 v)) 1 "red")
+          (rec (sub v 5))
+        )
+        (echo "done"))))
+  (rec 100)
+)
\ No newline at end of file