sig
  type 'a t
  val size : 'a Bunch.t -> int
  val empty : 'a Bunch.t
  val is_empty : 'a Bunch.t -> bool
  val singleton : 'a -> 'a Bunch.t
  val couple : 'a -> 'a -> 'a Bunch.t
  val imbalance : 'a Bunch.t -> int
  val add : 'a -> 'a Bunch.t -> 'a Bunch.t
  val add_balanced : 'a -> 'a Bunch.t -> 'a Bunch.t
  val join : 'a Bunch.t -> 'a Bunch.t -> 'a Bunch.t
  val iter : ('a -> unit) -> 'a Bunch.t -> unit
  val iter_const : ('a -> 'b -> unit) -> 'a -> 'b Bunch.t -> unit
  val filter : ('a -> bool) -> 'a Bunch.t -> 'a Bunch.t
  val filter_const : ('a -> 'b -> bool) -> 'a -> 'b Bunch.t -> 'b Bunch.t
  val partition : ('a -> bool) -> 'a Bunch.t -> 'a Bunch.t * 'a Bunch.t
  val partition_const :
    ('a -> 'b -> bool) -> 'a -> 'b Bunch.t -> 'b Bunch.t * 'b Bunch.t
  val fold : ('a -> 'b -> 'a) -> 'a -> 'b Bunch.t -> 'a
  val map : ('a -> 'b) -> 'a Bunch.t -> 'b Bunch.t
  val exists : ('a -> bool) -> 'a Bunch.t -> bool
  val for_all : ('a -> bool) -> 'a Bunch.t -> bool
  val of_list : 'a list -> 'a Bunch.t
  val to_list : 'a Bunch.t -> 'a list
end

---

Hosted by the ^* web site.
^*Other names and brands may be claimed as the property of others.