Reusing Data.List.monoid .