Control.Annihilator

class Annihilator a

(<|<)

aconcat

amappend

amconcat

avoid