optimize listInstance#unite
optimize MonadPlus[IList]#unite