Added (folder ($path)) to library

examples/arrays.lisp

@@ -28,5 +28,4 @@
         (add 50 (mul (sin a) 40)) 
         a 
         (add 20 (mul (cos a) 50))) 1 "red"))
-    (range 0 200 5)))
-)
+    (range 0 200 5)))

examples/load.lisp

@@ -1,5 +1,5 @@
 ; load file
 
 ((clear)
-  (stroke (draw ($path) ($rect)) 1 "red")
+  (print (folder))
 )