                    :spec (s/spec ::spec)))
 
 (s/def ::spec-defs (s/coll-of ::spec-def
-                              :min-count 1))
+                              :min-count 1
+                              :gen-max 3))
 
 (defn exercise-count [spec]
   (case spec

                              :kw keyword?
                              :spec ::spec))))

(s/def ::set-spec (s/coll-of
                   any?
                   :kind set?))

(s/def ::spec (s/or
               :amp ::amp-spec

                       :nilable #{`s/nilable}
                       :spec ::spec))

(s/def ::name-combo
  (s/or
   :one ::spec-name
   :combo (s/cat
           :operator #{'and 'or}
           :operands
