solution to euler 6 ( haskell) .