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