     (log/info (str "done writing lexicon."))
     (log/info (str "generating examples with this many verbs:"
                    (.size root-verb-array)))
-
     (.size
      (->> root-verb-array
           (use-map-fn

;; TODO: using pmap fails: cannot generate sentences; figure out why.
(def use-map-fn pmap)

(def lexicon (-> (-> ((-> models :es)) deref) :lexicon))

(defn root-verbs [lexicon]
  (let [lexemes (vals lexicon)]
    (zipmap


(defn todos [ & [count lexeme]]
  (let [count (if count (Integer. count) 10)
        model (-> ((-> models :es)) deref)
        type-of-model (type model)
        lexicon (:lexicon model)
        lexemes (if lexeme (list (get lexicon lexeme))
                    (vals lexicon))
        root-verbs (root-verbs lexicon)

        root-verb-array
