let read_from_native_string ~buf ~index =       try Some (buf.[index], 1)       with _ -> None