sig
  val ( ~: ) : string list -> string
  val ( ~% ) : ('a, unit, string) Pervasives.format -> 'a
  val print : string -> unit
  val eprint : string -> unit
  val fprint : Pervasives.out_channel -> string -> unit
  val printl : string -> unit
  val eprintl : string -> unit
  val fprintl : Pervasives.out_channel -> string -> unit
  val lpad : ?fill:Char.t -> int -> string -> string
  val rpad : ?fill:Char.t -> int -> string -> string
  val i2s : int -> string
  val f2s : float -> string
  val ounit_tests : unit -> OUnit.test
end