(* To recover OCaml's String *)

external length : string -> int = "%string_length"
external get : string -> int -> char = "%string_safe_get"
let compare = Pervasives.compare