sig
  val pp_str : Format.formatter -> string -> unit
  val lst :
    ('a, Format.formatter, unit) Pervasives.format ->
    (Format.formatter -> 'b -> unit) -> Format.formatter -> 'b list -> unit
  val opt :
    (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a option -> unit
  val pp_to_string : (Format.formatter -> 'a) -> string
end