diff --git a/src/projectEuler/question1.hs b/src/projectEuler/question1.hs
index 3b25706..dd669a7 100644
--- a/src/projectEuler/question1.hs
+++ b/src/projectEuler/question1.hs
@@ -13,6 +13,9 @@ main = print ans
 ans :: Integer
 ans = sum $ allNumbersUnder 1000
 
+sum' :: Num a => [a] -> a
+sum' = foldl (+) 0
+
 isMultipleOf :: Integral a => a -> a -> Bool
 isMultipleOf n x = x `rem` n == 0