Data.Monoid.Split

data Split m

split

unsplit