diff --git a/examples/euler2.lisp b/examples/euler2.lisp
new file mode 100644
index 0000000..23ade8b
--- /dev/null
+++ b/examples/euler2.lisp
@@ -0,0 +1,5 @@
+(let ((result
+       (do ((a 1 b) (b 2 (+ a b)) (sum 0)) ((> b 4000000) sum)
+           (when (evenp b)
+             (set sum (+ sum b))))))
+  (write-line result))