let get s ~index =     try Some (s.[index])     with _ -> None