diff --git a/lisp/euler006.lisp b/lisp/euler006.lisp
new file mode 100644
index 0000000..9708f94
--- /dev/null
+++ b/lisp/euler006.lisp
@@ -0,0 +1,14 @@
+(load "euler.lisp")
+
+(defun sum-of-squares-up-to (n)
+  (sum (mapcar (lambda (n) (* n n)) (range 1 n)))
+)
+
+(defun square-of-sum-up-to (n)
+  (let* ((square (sum (range 1 n))))
+        (* square square))
+)
+
+(defun solution ()
+  (- (square-of-sum-up-to 100) (sum-of-squares-up-to 100))
+)