Haskell solution to euler 9.