instance Arbitrary Seq, more control