(push"a"*)(dotimes'25(format t"instance (~{Monoid ~A~^, ~}) => Monoid (~{~A~^,~}) where
~4Tmempty = (~{~*mempty~^,~})~@*
~4T(~{~A1~^,~}) `mappend` (~{~A2~^,~}) = (~{~A1 `mappend` ~:*~A2~^,~})

"(set'*`(,@*,(int-char(+ .'98))))* *))