                generate
                morph)))))
 
-(defn tiny-model []
-  (babel.italiano.grammar/model-plus-lexicon
-   ;; filtered lexicon:
-   (into {}
-         (for [[k lexemes] (babel.lexiconfn/read-lexicon "it")]
-           (let [filtered-lexemes
-                 (filter (fn [lexeme]
-                           (or (= k "vedere")
-                               (and (= (get-in lexeme [:synsem :cat])
-                                       :noun)
-                                    (= (get-in lexeme [:synsem :pronoun])
-                                       true))))
-                         lexemes)]
-             (if (not (empty? filtered-lexemes))
-               [k filtered-lexemes]))))
-
-   ;; filtered grammar:
-   (fn [rule]
-     (or (= (:rule rule)
-            "s-present-phrasal")
-         (= (:rule rule)
-            "vp-pronoun-nonphrasal")))))
-
-(defn test-tiny-model []
-  (let [spec {:modified false,
-              :synsem {:cat :verb, :subcat [],
-                       :sem {:pred :see,
-                             :tense :present,
-                             :aspect :simple
-                             :obj {:spec :top}}}}
-        tm (tiny-model)]
-    (repeatedly #(println (morph (time (generate spec tm)))))))
-
-
-    

   [clojure.set :as set]
   [dag_unify.core :refer [copy fail? get-in strip-refs unify]]))

(btest/init-db)
(log/info (str "recompiling and writing lexicon to database.."))
(write-lexicon "it" (lexicon/compile-lexicon))
(log/info (str "done."))
(def model @@(get models :it))

;; TODO: consider removing special-purpose grammars like grammar/np-grammar
;; and just use model instead.
(def np-grammar (delay (grammar/np-grammar)))

(defmacro deftest [test-name & arguments]
  (let [wrapped-arguments

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