 
 (deftest davanti-lo-studente
   (let [parse-result (mapcat :parses (parse "davanti lo studente"))
-        gen-result (generate-with-medium {:synsem {:cat :prep 
+        gen-result (generate {:synsem {:cat :prep 
                                                    :sem {:pred :in-front-of
                                                          :obj {:pred :student
                                                                :number :sing

           "davanti il tavolo"))))

(deftest furniture-sentence
  (let [expr (generate-with-medium {:synsem {:sem {:obj {:pred :table :mod '() :spec {:def :def}
                                                         :number :sing}
                                                   :pred :in-front-of
                                                   :subj {:pred :chair :mod '() :spec {:def :def}

(defn roundtrip-parsing [n]
  (take n
        (repeatedly #(let [generated
                           (fo (generate {:synsem {:cat :verb
                                                               :subcat '()}}))
                           parsed (reduce concat (map :parses (parse generated medium)))]
                       (log/info (str "generated: " generated))
