diff --git a/examples/glitch.lisp b/examples/glitch.lisp
new file mode 100644
index 0000000..6804bc2
--- /dev/null
+++ b/examples/glitch.lisp
@@ -0,0 +1,24 @@
+; pixels
+
+(
+  (clear)
+
+  ; Filter
+
+  (defn glitch 
+    (rec) 
+    (if (gt rec 1)
+    ((clone 
+      (rect (random 400) (random 400) 2 2)
+      (rect (random 400) (random 400) 
+(random 10) (random 30)))
+      (glitch (sub rec 1))))
+  )
+
+  ; Draw photo 
+  
+  (draw 
+    "../static/crystal.jpg" 
+    (rect 0 0 400 400) 
+    (lambda () (glitch 2000)))
+)
\ No newline at end of file