sig
  val internal_print : string -> ('a, unit, unit) format -> 'a
  val internal_fprint :
    Pervasives.out_channel -> string -> ('a, unit, unit) format -> 'a
  val ignore : ('a, unit, unit) format -> 'a
  val error : ('a, unit, unit) format -> 'a
  val warning : ('a, unit, unit) format -> 'a
end