sig
  type t = String of string | WString of int64 list
  exception OutOfBounds
  exception NotAscii of int64
  val get_char : Format_string.t -> int -> char
  val get_wchar : Format_string.t -> int -> int64
  val sub_string : Format_string.t -> int -> int -> string
end