sig
  val set_log_formatter : Format.formatter -> unit
  val set_log_level : int -> unit
  val log : (Format.formatter -> 'a -> unit) -> int -> 'a -> unit
  val log_int : int -> int -> unit
  val log_float : int -> float -> unit
  val log_string : int -> string -> unit
  val log_bool : int -> bool -> unit
  val log_time : int -> Time.time -> unit
  val log_flush : int -> unit -> unit
  val log_newline : int -> unit -> unit
end

---

Hosted by the ^* web site.
^*Other names and brands may be claimed as the property of others.