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