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