Project Euler solution in Haskell