diff --git a/euler001.hs b/euler001.hs
index e69de29..4a7a88c 100644
--- a/euler001.hs
+++ b/euler001.hs
@@ -0,0 +1,14 @@
+
+module Main where
+
+import System.IO
+
+sum3_5 0 = 0
+sum3_5 n
+	| n `mod` 3 == 0 = n + sum3_5(n-1)
+	| n `mod` 5 == 0 = n + sum3_5(n-1)
+	| otherwise = sum3_5(n-1)
+
+main :: IO()
+main =  do
+	print (sum3_5 999)