Term.Pretty_Arg
type 'a t
type 'a pack
val pretty : Stdlib.Format.formatter -> 'a t -> unit
val extract1 : 'a ar1 pack -> 'a t
val extract2 : ('a, 'b) ar2 pack -> 'a t * 'b t