sig
  type 'a formatter = Format.formatter -> 'a -> unit
  val pp :
    Format.formatter -> ('a, Format.formatter, unit) Pervasives.format -> 'a
  val rpp :
    ('a, Format.formatter, unit) Pervasives.format -> Format.formatter -> 'a
  val nop : 'a Assemblage.Fmt.formatter
  val pp_cut : unit Assemblage.Fmt.formatter
  val pp_sp : unit Assemblage.Fmt.formatter
  val pp_str : string Assemblage.Fmt.formatter
  val pp_int : int Assemblage.Fmt.formatter
  val pp_bool : bool Assemblage.Fmt.formatter
  val pp_larrow : unit Assemblage.Fmt.formatter
  val pp_rarrow : unit Assemblage.Fmt.formatter
  val pp_opt :
    ?pp_none:unit Assemblage.Fmt.formatter ->
    'a Assemblage.Fmt.formatter -> 'a option Assemblage.Fmt.formatter
  val pp_list :
    ?pp_sep:unit Assemblage.Fmt.formatter ->
    'a Assemblage.Fmt.formatter -> 'a list Assemblage.Fmt.formatter
  val pp_text : string Assemblage.Fmt.formatter
  val pp_lines : string Assemblage.Fmt.formatter
  val pp_doomed : string Assemblage.Fmt.formatter
  val pp_if_utf8 :
    'a Assemblage.Fmt.formatter ->
    'a Assemblage.Fmt.formatter -> 'a Assemblage.Fmt.formatter
  type style =
      [ `Black
      | `Blue
      | `Bold
      | `Cyan
      | `Green
      | `Magenta
      | `None
      | `Red
      | `Underline
      | `White
      | `Yellow ]
  val pp_styled :
    Assemblage.Fmt.style ->
    'a Assemblage.Fmt.formatter -> 'a Assemblage.Fmt.formatter
  val pp_styled_str : Assemblage.Fmt.style -> string Assemblage.Fmt.formatter
end