sig
  val merge_sort : (int -> int -> int) -> int array -> unit
  val ba_merge_sort :
    (int -> int -> int) ->
    (int, Bigarray.int_elt, Bigarray.c_layout) Bigarray.Array1.t -> unit
end