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