 
 (defn zip-rose
   "Apply `f` to the sequence of Rose trees `roses`."
+  {:no-doc true}
   [f roses]
   [(apply f (clojure.core/map rose-root roses))
    (clojure.core/map (partial zip-rose f)
                      (rose-permutations roses))])
 
 (defn remove-roses
+  {:no-doc true}
   [roses]
   (concat
     [(rest roses)]

;; ---------------------------------------------------------------------------

(defn random
  ([] (Random.))
  ([seed] (Random. seed)))

(defn make-size-range-seq
  [max-size]
  (cycle (range 0 max-size)))


;; ---------------------------------------------------------------------------

(defn resize
  "Create a new generator with `size` always bound to `n`."
  [n {gen :gen}]
  (make-gen
    (fn [rnd _size]
