 
 (deftest fornendo
   (is (= "io sto fornendo" (morph (generate {:synsem {:cat :verb
-                                                      :subcat ()
+                                                      :subcat []
                                                       :sem {:tense :present
                                                             :aspect :progressive
                                                             :subj {:pred :I}

  (take n
        (repeatedly #(let [generated
                           (morph (generate {:synsem {:cat :verb
                                                      :subcat ()}}))
                           parsed (reduce concat (map :parses (parse generated (medium))))]
                       (log/info (str "generated: " generated))
                       (log/info (str "semantics: "

;          not)))

(deftest past-and-gender-agreement
  (is (= (morph (generate {:synsem {:subcat []
                                    :cat :verb
                                    :sem {:pred :go
                                          :aspect :perfect
