Add example for recurtion (NOTE: not working NOW)

diff --git a/example/rec.scm b/example/rec.scm
new file mode 100644 (file)
index 0000000..2380978
--- /dev/null
+++ b/example/rec.scm
@@ -0,0 +1,11 @@
+(let ([f (lambda (n) (print "not rec"))])
+  (let ([f (lambda (n) (if (= n 0)
+                          (print "rec")
+                          (f 0)))])
+    (f 1)))
+
+(let ([f (lambda (n) (print "not rec"))])
+  (letrec ([f (lambda (n) (if (= n 0)
+                          (print "rec")
+                          (f 0)))])
+    (f 1)))
\ No newline at end of file