 
   (gen-args
     [blocks]
-    [(gen/set (choose-id blocks))])
+    [(gen/set (choose-id blocks) {:max-elements (count blocks)})])
 
   (apply-op
     [this store]


  (gen-args
    [blocks]
    [(gen/set (choose-block blocks))])

  (apply-op
    [this store]


  (gen-args
    [blocks]
    [(gen/set (choose-id blocks) {:max-elements (count blocks)})])

  (apply-op
    [this store]
