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
