sig
  val 'beep : any -> any
  val 'beep_cpt : unit -> int
  val 'beep_cpt_reset : any -> int
  val '<< : string -> any -> string
  val '<<< : string -> any -> string
  val 'close : string -> undef
  val 'read_line : string
  val 'open : string -> int
  val 'fold_io : funct -> any -> string
  val 'print_coll :
    string ->
    collection ->
    funct -> any -> any -> any -> string
  val 'uprint_coll :
    string ->
    collection ->
    funct -> any -> any -> any -> string
  val 'print_coll2 : string -> seq -> any -> string
  val 'trace : string -> undef
  val 'untrace : string -> undef
  val 'set_error_handler : funct -> funct
  val 'reset_default_error_handler : funct
  val 'exit : any -> undef
  val 'sleep : int
  val 'abort : any -> undef
  val 'top_level : any -> bool
  val 'while : funct -> funct
  val 'listvar : undef
  val '? : any -> any
  val 'parse : string -> undef
  val 'system : string -> undef
  val '!! : any -> any
end