type t = {
  1. heap : int array;
  2. mutable len : int;
  3. mutable max : int;
}
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 smaller : int array -> int -> int -> int array -> bool
val pqdownheap : freqs:int array -> depth:int array -> t -> int -> unit
val pqremove : freqs:int array -> depth:int array -> t -> int