 (defn write-one [spec]
   (log/debug (str "generating from spec: " spec))
   (let [model (-> ((-> models :en)) deref)]
-    (log/debug (str "type of model is:" (type model)))
     (try
       (process [{:fill-one-language
                  {:count 1

        debug (log/debug (str "using root:" root))
        debug (log/debug (str "using spec:" (strip-refs spec)))
        
;;        use-map-fn map ;; <- development
        use-map-fn pmap ;; <- production

        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

                        ;; of what the (process) command did.
                        (log/debug (str "process result:" result)))
                      (catch Exception e
                        (let [allow-generation-error false] ;; false: throw error and stop further generation; true: log/error and continue generation
                          (log/error (str "Could not translate source expression: "
                                          "'" (get source-expression :surface) "'"
                                          " from language: '" source-language-short-name 
