               {:root "ardēre"
                :synsem {:sem {:subj {:pred :I}
                               :tense :past
-                              :aspect :progressive}}}
-              model)))))
+                              :aspect :progressive}}})))))
 
 (deftest generate-future
   (is (= "ardebunt"
          (fo (generate
               {:root "ardēre"
                :synsem {:sem {:subj {:pred :loro}
-                              :tense :future}}}
-              model)))))
-
+                              :tense :future}}})))))
 
 (deftest engine-generate
   (is (= "ardetis"

(def source-format-fn (-> ((-> models source-language)) deref :morph))

;; function to generate expression in target langage
(def target-generate-fn (-> ((-> models :la)) deref :generate-fn))

(def target-format-fn (-> ((-> models :la)) deref :morph))


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

(deftest generate-imperfect
  (is (= "ardebam"
