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

                                                :sem {:tense :present
                                                      :aspect :simple}
                                                :subcat []}}
                                      :model (medium))))]
    (is (= do-this-many
           (count (map-fn (fn [expr]
                            (let [surface (morph expr)

                                          :tense :present}}
                           :root {:italiano {:italiano "essere"}}
                           :comp {:synsem {:agr {:number :sing}}}}
                          :model model))
         "c'è")))

(deftest bisogno
