diff --git a/.gitignore b/.gitignore
index 1233871..f883c54 100644
--- a/.gitignore
+++ b/.gitignore
@@ -4,3 +4,6 @@ c/binaries
 */bin/*
 *.dwarf
 rust/target
+
+*.hi
+*.o
diff --git a/haskell/euler001.hs b/haskell/euler001.hs
new file mode 100644
index 0000000..c7f32ae
--- /dev/null
+++ b/haskell/euler001.hs
@@ -0,0 +1,8 @@
+module Main where
+
+up_to x = take (x-1) (iterate (1+) 1)
+
+divisible_by_3_or_5 x = (x `mod` 3 == 0) || (x `mod` 5 == 0)
+
+main = do
+    print (sum (filter divisible_by_3_or_5 (up_to 1000)))