                                                 :sem {:tense :past
                                                       :aspect :progressive}
                                                 :subcat []}}
-                                      :model (medium))))]
+                                      :model model)))]
     (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 (medium))))]
                       (log/info (str "generated: " generated))
                       (log/info (str "semantics: "
                                      (or

          (let [semantics (strip-refs
                           (get-in
                            (first
                             (reduce concat (map :parses (parse surface model))))
                            [:synsem :sem]))]
            (is (map? semantics))))
        ["la sua ragazza"
