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