1data Mono = Monoid [String] 2 3instance Semigroup Mono where 4 (<>) = undefined 5 6instance Monoid Mono where 7 mempty = Monoid mempty 8 9