Project Euler, Problem 2, Haskell