module PQ : sig ... endval huffmanize :
?pa:('a -> Tree.stree) option ->
('a * int) list ->
'a Tree.btree optionval huffmanize2 :
?pa:('a option -> Tree.stree) option ->
('a * int) list ->
'a option Tree.btree * int * 'a listval huffmanize3 :
?pa:('a option -> Tree.stree) option ->
?cmp:('a -> 'a -> int) ->
('a * int) list ->
int option * (int * 'a list) list * int * 'a listmodule BA = BTools_BArraymodule BNat = BTools_BArray_Natval code_of_bitlen : (int * 'a) list -> (BA.t * 'a) listval btree_of_code : (BA.t * 'a) list -> 'a Tree.btree optionval btree_of_chcb : int option -> (int * 'a list) list -> 'a option Tree.btreeval of_htbl : ('a, 'b) Hashtbl.t -> ('a * 'b) listval to_htbl : ?size:int -> ('a * 'b) list -> ('a, 'b) Hashtbl.t