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