sig
  val all : unit -> string list
  val register : string -> unit
  module type S =
    sig type t val pp : Format.formatter -> Pretty_printer.S.t -> unit end
  module Register :
    functor
      (M : sig
             type t
             val module_name : string
             val to_string : Pretty_printer.Register.t -> string
           end) ->
      sig val pp : Format.formatter -> M.t -> unit end
  module Register_pp :
    functor
      (M : sig
             type t
             val pp : Format.formatter -> t -> unit
             val module_name : string
           end) ->
      sig val pp : Format.formatter -> M.t -> unit end
end