Base.Pretty_printer
val all : unit -> string list
module type S = sig ... end
module Register (M : sig ... end) : sig ... end
module Register_pp (M : sig ... end) : sig ... end
val register : string -> unit