fix lambda shorthand, update array example

examples/arrays.lisp

@@ -1,25 +1,26 @@
-(echo (map (lambda (a) (add a 1)) (1 2 3)))
+(echo (map '(add %1 1) (1 2 3)))
 
 (echo (first (1 2 3)))
 (echo (rest (1 2 3)))
 
 (echo
   (filter 
-    (lambda (a) (eq 0 (mod a 2))) 
+    '(eq 0 (mod %1 2)) 
     (1 2 3 4 5))
 )
 
 (clear) 
-(map (lambda (a)
-  (stroke (rect (mul a 30) 20 50 50)
-1 "red"))
+(map
+  '(stroke (rect (mul a 30) 20 50 50)
+1 "red")
 (range 0 20 5))
 
-(map (lambda (a)
-  (stroke 
+(map
+  '(stroke 
     (rect 
-      (mul a 10) 
-      (add 50 (mul (sin a) 40)) 
-      a 
-      (add 20 (mul (cos a) 50))) 1 "red"))
-  (range 0 200 5))
+      (mul %1 10) 
+      (add 50 (mul (sin %1) 40)) 
+      %1
+      (add 20 (mul (cos %1) 50))) 1 "red")
+  (range 0 200 5))
+