Project Euler, Problem 1, Haskell