external replace_fun : t -> (int -> string array -> string) -> string -> string = "caml_regexp_replace_fun"