sig
  val set_error_limit : int -> unit
  val errorReported : unit -> bool
  val fatal : string -> unit
  val error : string -> unit
  val warning : string -> unit
  val debug : string -> unit
  val hashSize : ('a, 'b) Hashtbl.t -> string
end