   "Generate symbols with optional namespaces."
   (frequency [[100 (->> (tuple namespace char-symbol-first (vector char-symbol-rest))
                         (such-that (fn [[_ c [d]]] (not (+-or---digit? c d))))
-                        (fmap (fn [[ns c cs]] (core/symbol ns (clojure.string/join (cons c cs))))))]
+                        (fmap (fn [[ns c cs]] (core/symbol ns (clojure.string/join (cons c cs)))))
+                        (resize-symbolish-generator))]
               [1 (return '/)]]))
 
 (def ratio

  (->> (tuple char-keyword-first (vector char-keyword-rest))
       (fmap (fn [[c cs]] (clojure.string/join (cons c cs))))))

(def keyword
  "Generate keywords without namespaces."
  (->> (tuple keyword-segment-first (vector keyword-segment-rest))
       (fmap (fn [[c cs]]
               (core/keyword (clojure.string/join ":" (cons c cs)))))))

(def
  ^{:added "0.5.9"}

  "Generate keywords with optional namespaces."
  (->> (tuple namespace char-keyword-first (vector char-keyword-rest))
       (fmap (fn [[ns c cs]]
               (core/keyword ns (clojure.string/join (cons c cs)))))
       (resize-symbolish-generator)))

(def ^{:private true} char-symbol-first
  (frequency [[10 char-alpha]
