diff --git a/examples/fizzbuzz.lisp b/examples/fizzbuzz.lisp
new file mode 100644
index 0000000..605dcd8
--- /dev/null
+++ b/examples/fizzbuzz.lisp
@@ -0,0 +1,5 @@
+(do ((i 1 (+ i 1))) ((= i 100))
+    (write-line (cond ((and (zerop (mod i 3)) (zerop (mod i 5))) "FizzBuzz")
+                      ((zerop (mod i 3)) "Fizz")
+                      ((zerop (mod i 5)) "Buzz")
+                      (t i))))