let to_string (heap: heap) : string =
    let rec to_string' i =
      if i >= heap.hp_length then
        ""
      else
        string_of_int i ^ ": " ^ Ord.to_string heap.hp_heap.(i) ^ "\n" ^ to_string' (i + 1)
    in
      to_string' 0