sig
  type status = Uninitialised | Bad_term | Good_term of int
  external setup : Pervasives.out_channel -> Terminfo.status
    = "caml_terminfo_setup"
  external backup : int -> unit = "caml_terminfo_backup"
  external standout : bool -> unit = "caml_terminfo_standout"
  external resume : int -> unit = "caml_terminfo_resume"
end