struct
let (|>) f x = x f
module String = 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
module List = ListLabels
end