simplify haskell largest-series-product (and fix bug)