Haskell solution to euler16.
Haskell solution for euler40.