sig
  val label_width : int
  val left_pad : string -> int -> string
  val right_pad : string -> int -> string
  val print_label : string -> string -> unit
  val print_statistic : string -> int -> unit
  val print_statistic_64 : string -> int64 -> unit
  val print_statistic_float : string -> float -> unit
  val output_line : Pervasives.out_channel -> string -> unit
end