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

  "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)))))))

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

  "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)))))
                        (resize-symbolish-generator))]
              [1 (return '/)]]))

(def ratio
