mconcatMap Sum [1,2,3] == Sum 6 \f xs -> mconcatMap f xs == concatMap f xs
sumOn' read ["1", "2", "3"] == 6
productOn' read ["1", "2", "4"] == 8