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