   provided generators. Shrinks toward choosing an earlier generator,
   as well as shrinking the value generated by the chosen generator.
 
-  Examples:
-
-      (one-of [gen/int gen/boolean (gen/vector gen/int)])
-
-  "
+      (gen/sample (gen/one-of [gen/int gen/boolean (gen/vector gen/int)]))
+      => (true [] -1 [0] [1 -4 -4 1] true 4 [] 6 true)"
   [generators]
   (assert (every? generator? generators)
           "Arg to one-of must be a collection of generators")

  guarantee that (map key-fn the-list) will be distinct.

  If the generator cannot or is unlikely to produce enough distinct
  elements, this generator will fail in the same way as such-that.

  Available options:

    :num-elements  the fixed size of generated vectors
    :min-elements  the min size of generated vectors
    :max-elements  the max size of generated vectors
    :max-tries     the number of times the generator will be tried before
                   failing when it does not produce distinct elements
                   (default 10)

     (k (h rnd size)))))

(defn gen-bind
  "Internal function."
  {:no-doc true}
  [{h :gen} k]
  (make-gen
