sig
  val vt_width : int
  val print_line : Format.formatter -> unit -> unit
  val print_double_line : Format.formatter -> unit -> unit
  val print_title : Format.formatter -> string -> unit
  val print_list :
    (Format.formatter -> 'a -> unit) ->
    ('b, Format.formatter, unit) Pervasives.format ->
    Format.formatter -> 'a list -> unit
end