sig
  val input_char : Stdlib.in_channel -> string
  val set_prompt : string -> unit
  val get_prompt : unit -> string
  val open_histfile : bool -> string -> unit
  val close_histfile : unit -> unit
  val set_max_len : int -> unit
  val set_son_pid : int -> unit
  val unset_meta_as_escape : unit -> unit
  val set_utf8 : unit -> unit
  val set_ascii : unit -> unit
  val trace_sequences : bool Stdlib.ref
end