haskell largest-series-product