Sort.Heap_sort
val sort : 'a Base__Array.t -> compare:('a -> 'a -> int) -> left:int -> right:int -> unit