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