sig   type 'a t = '-> string   val int : int QCheck.PP.t   val bool : bool QCheck.PP.t   val float : float QCheck.PP.t   val char : char QCheck.PP.t   val string : string QCheck.PP.t   val pair : 'QCheck.PP.t -> 'QCheck.PP.t -> ('a * 'b) QCheck.PP.t   val triple :     'QCheck.PP.t ->     'QCheck.PP.t -> 'QCheck.PP.t -> ('a * 'b * 'c) QCheck.PP.t   val quad :     'QCheck.PP.t ->     'QCheck.PP.t ->     'QCheck.PP.t -> 'QCheck.PP.t -> ('a * 'b * 'c * 'd) QCheck.PP.t   val list : 'QCheck.PP.t -> 'a list QCheck.PP.t   val array : 'QCheck.PP.t -> 'a array QCheck.PP.t end