impl largest-series-product.hs