haskell solution to euler #22