T.Heap
val make : unit -> t
val populate :
length:int ->
freqs:int array ->
int array ->
depth:int array ->
t ->
int
val pkzip : int -> freqs:int array -> depth:int array -> t -> int
val pqdownheap : freqs:int array -> depth:int array -> t -> int -> unit
val pqremove : freqs:int array -> depth:int array -> t -> int