   (is (not (empty? (get (:lexicon (small)) "pris"))))
   (is (= false (get-in (first (get (:lexicon (small)) "prendre"))
                        [:français :past-p :regular])))
-  (let [result (generate {:synsem {:subcat '()
+  (let [result (generate {:synsem {:subcat []
                                    :sem {:subj {:pred :noi}
                                          :aspect :perfect
                                          :tense :present}}

    (is (= (fo result) "nous sommes allées"))))

(deftest generate-passe-compose-essere-false
  (let [result (generate {:synsem {:subcat '()
                                   :sem {:subj {:pred :tu
                                                :gender :fem}
                                         :aspect :perfect

    (is (= "tu appelas" (fo result)))))

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