sig
  val pp_print_string_spaced : Format.formatter -> string -> unit
  val pp_print_list :
    (Format.formatter -> '-> unit) ->
    ('b, Format.formatter, unit) Pervasives.format ->
    Format.formatter -> 'a list -> unit
  val pp_print_para : Format.formatter -> ?end_para:bool -> string -> unit
  val pp_print_paraf :
    Format.formatter ->
    ?end_para:bool -> ('a, unit, string, unit) Pervasives.format4 -> 'a
  val pp_print_title : Format.formatter -> int -> string -> unit
  val pp_print_titlef :
    Format.formatter ->
    int -> ('a, unit, string, unit) Pervasives.format4 -> 'a
  val pp_print_cut2 : Format.formatter -> unit -> unit
  val pp_print_endblock :
    ?check_last_char:string -> Format.formatter -> unit -> unit
  val pp_print_def :
    Format.formatter ->
    string -> ((Format.formatter -> '-> unit) * 'a) list -> unit
end