diff --git a/desktop/static/crystal.jpg b/desktop/static/crystal.jpg
new file mode 100644
index 0000000..bbcd6ca
Binary files /dev/null and b/desktop/static/crystal.jpg differ
diff --git a/examples/random.lisp b/examples/random.lisp
new file mode 100644
index 0000000..490b2b6
--- /dev/null
+++ b/examples/random.lisp
@@ -0,0 +1,20 @@
+; random 
+
+(
+  (clear)
+
+  (defn place
+    (rec)
+    (if (gt rec 0)
+      ((draw "../static/crystal.jpg"
+      (rect 
+        (random 200)
+        (random 200) 
+        (random 200) 
+        (random 200))
+      (lambda () (place (sub rec 1)))
+    )))
+)
+    
+  (place 30)
+)
\ No newline at end of file