diff --git a/haskell/euler001.hs b/haskell/euler001.hs
index c7f32ae..b397f53 100644
--- a/haskell/euler001.hs
+++ b/haskell/euler001.hs
@@ -1,8 +1,6 @@
 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)))
+    print (sum (filter divisible_by_3_or_5 [1..999]))