Parameter String.3-A

type t = string
type 'a arbitrary = 'a Q.arbitrary
val make : t arbitrary