let
find_index s ~char =
try
Some
(rindex s char)
with
_
->
None