sig
  type char_
  type t
  val of_list : CCLevenshtein.STRING.char_ list -> CCLevenshtein.STRING.t
  val get : CCLevenshtein.STRING.t -> int -> CCLevenshtein.STRING.char_
  val length : CCLevenshtein.STRING.t -> int
  val compare_char :
    CCLevenshtein.STRING.char_ -> CCLevenshtein.STRING.char_ -> int
end