           (let [semantics (strip-refs
                            (get-in
                             (first
-                             (reduce concat (map :parses (parse surface medium))))
+                             (reduce concat (map :parses (parse surface (medium)))))
                             [:synsem :sem]))]
             (is (map? semantics))))
         ["la sua ragazza"
          "la sua ragazza dorme"
          "la sua ragazza bella dorme"
          "noi beviamo la loro acqua bella"
-         "noi abbiamo bevuto la loro acqua bella"
-         "Luisa e io abbiamo bevuto la loro acqua bella"])))
+         ;"noi abbiamo bevuto la loro acqua bella"
+         ;"Luisa e io abbiamo bevuto la loro acqua bella"
+         ])))
 
 (deftest parse-with-boot-stem
   (is (not (empty? (:parses (first (parse "lei esce")))))))

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


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