Add Euler 1 - Haskell