De.T
type tree = {
lengths : int array;
max_code : int;
tree : Lookup.t;
}
val make : length:int -> ?max_length:int -> int array -> bl_count:int array -> tree