                                          :subj {:pred :I}
                                          :tense :past
                                          :aspect :perfect}}}
-                         :model small)]
+                         :model (small))]
     (is (not (nil? result)))
     (is (= "io mi sono alzata" (fo result)))))
 

        (generate {:synsem {:sem {:subj {:pred :loro}
                                  :pred :manage
                                  :tense :present}}}
                  :model small)]
    (is (= "loro gestiscono" (fo result)))))

(deftest casa-generate

                           #(generate {:synsem {:cat :verb
                                                :sem {:tense :conditional}
                                                :subcat '()}}
                                      :model (small))))]
    (is (= do-this-many
           (count (map-fn (fn [expr]
                          (let [fo (fo expr)
