         result (read-one {:root "ardēre"
                           :synsem {:sem {:tense :past
                                          :aspect :progressive}}}
-                         model source-model)
+                         (model) source-model)
         ;; for specific literal strings in the result.
         subj (get-in result [:semantics :subj :pred])
         possible-answer (first (get result :targets))]

         (conjugate "ardēre"
                    {:synsem {:sem {:subj {:pred :noi}}}}))))

(def model (-> ((-> models target-language)) deref))

(deftest generate-present
  (is (= "ardetis"

              {:root "ardēre"
               :synsem {:sem {:subj {:pred :voi}
                              :tense :present}}}
              (model))))))

(deftest reader1
  (let [spec {:synsem {:sem {:subj {:pred :lui}
