loop example

Signed-off-by: Rain Mark <rain.by.zhou@gmail.com>

README.md

@@ -10,8 +10,6 @@ $ ./build.sh
 
 # example
 
-> lambda.lisp
-
 ```lisp
 (progn
   (define abc (lambda (a b c) (+ a (+ b c))))
@@ -27,7 +25,23 @@ $ ./lispoo example/lambda.lisp
 18
 ```
 
-> quote.lisp
+```lisp
+(progn
+  (set! i 3)
+  (while i (progn (message i) (set! i (+ i -1))))
+  (progn (set! x 0) (message (if x 1 2)))
+  (message (progn (+ 1 1) (+ 2 2)))
+  )
+```
+
+```sh
+$ ./lispoo example/loop.lisp
+3
+2
+1
+2
+4
+```
 
 ```lisp
 (progn

example/prog.lisp → example/loop.lisp

@@ -2,6 +2,5 @@
   (set! i 3)
   (while i (progn (message i) (set! i (+ i -1))))
   (progn (set! x 0) (message (if x 1 2)))
-  (progn (set! x 1) (message x))
   (message (progn (+ 1 1) (+ 2 2)))
   )