diff --git a/haskell/euler006.hs b/haskell/euler006.hs
new file mode 100644
index 0000000..a80837f
--- /dev/null
+++ b/haskell/euler006.hs
@@ -0,0 +1,8 @@
+module Main where
+
+sum_of_squares n = sum $ map (\m -> m * m) [1..n]
+
+square_of_sum n = (\m -> m * m) (sum [1..n])
+
+main = do
+    print $ (square_of_sum 100) - (sum_of_squares 100)