struct     include StringLabels     let get_exn = get     let get s ~index = try Some (get_exn s index) with _ -> None     let sub_exn = sub     let find_index s ~char = try Some (rindex s char) with _ -> None    end