Module Uucp.Cmap

type !'a tree =
  1. | Empty
  2. | C of int * 'a
  3. | Cn of 'a tree * 'a tree * int * 'a
type !'a t = {
  1. default : 'a;
  2. tree : 'a tree;
}
val get : 'a t -> int -> 'a
val of_sorted_list : 'a -> [ `C of int * 'a ] list -> 'a t
val height : 'a t -> int
val word_size : ('a -> int) -> 'a t -> int
val dump : (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a t -> unit