sig
  val ( ~: ) : string list -> string
  val ( ~% ) : ('a, unit, string) format -> 'a
  val print : string -> unit
  val eprint : string -> unit
  val fprint : out_channel -> string -> unit
  val printl : string -> unit
  val eprintl : string -> unit
  val fprintl : 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
end