   (let [result (generate 
                 {:root {:espanol {:espanol "abrazar"}}
                  :synsem {:cat :verb
-                          :subcat '()
+                          :subcat []
                           :sem {:subj {:pred :I}}
                           :infl :preterito}}
                 model)]

            (= "abracé" (fo result))))))
                
(deftest llamarse
  (let [result (generate {:synsem {:subcat '() :cat :verb :sem {:pred :be-called}}} model)]
    (is (not (empty? (fo result))))))

(deftest llamo
  (let [result (fo (generate {:synsem {:subcat '()
                                       :cat :verb
                                       :sem {:tense :present
                                             :aspect :simple

(def model @@(get models :es))

(deftest generate-regular-conditional
  (let [result (generate {:synsem {:subcat []
                                   :cat :verb
                                   :sem {:pred :sleep
                                         :subj {:pred :I}
