Project Euler #1 - Haskell solution-2