                             (process [{:fill-one-language
                                        {:count 1
                                         :spec spec
-                                        :model (small)
+                                        :model model
                                         }}]
                                      source-language-short-name)]
                         ;; TODO: 'result' is currently


(defn write-one [spec]
  (log/debug (str "generating from spec: " spec))
  (try
    (process [{:fill-one-language
               {:count 1
                :spec spec
                :model small}}]
             "en")
    (catch Exception e
      (cond
        
        ;; TODO: make this conditional on
        ;; there being a legitimate reason for the exception -
        ;; e.g. the verb is "works (nonhuman)" (which takes a non-human
        ;; subject), but we're trying to generate with
        ;; {:agr {:person :1st or :2nd}}, for which the only lexemes
        ;; are human.
        true
        
        (log/warn (str "ignoring exception: " e))
        false
        (throw e))))
  )

(defn all [ & [count]]
  (let [count (if count (Integer. count) 10)

        debug (log/debug (str "using spec:" (strip-refs spec)))
        
        use-map-fn pmap
        model (-> ((-> models :en)) deref)
        type-of-model (type model)
        log-the-type (log/info (str "type of model is: " type-of-model))
        source-expressions (read-all spec
                                     source-language-short-name)]
    (count
