                                          :aspect :simple
                                          :subj {:pred :I}
                                          :iobj {:pred :luisa}}}}
-                         :model (medium))]
+                         :model model)]
     (is (not (nil? result)))
     (is (= "io mi chiamo Luisa" (morph result)))))
 

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

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