Haskell solution to euler11.