Parameter Option.3-A

type t = int option
type 'a arbitrary = 'a Q.arbitrary
val make : t arbitrary