let of_native_string of_native_substring s =     match of_native_substring s ~offset:0 ~length:(String.length s) with     | `Ok o -> return o     | `Error (`wrong_char_at c) -> fail (`wrong_char_at c)     | `Error `out_of_bounds -> (* There is a bug ! *) assert false