Sum package:optparse-generic

Monoid under addition.
>>> getSum (Sum 1 <> Sum 2 <> mempty)
3