let of_native_substring s ~offset ~length =     Make_native_conversions.of_native_substring       ~empty ~init:(fun () -> ref [])       ~on_new_character:(fun x c -> x := c :: !x)       ~finalize:(fun x -> List.rev !x)       ~read_character_from_native_string:Char.read_from_native_string       s ~offset ~length