 (def np-grammar (delay (grammar/np-grammar)))
 
 (defn generate-speed-test [spec & [times]]
-  (btest/generate-speed-test spec @@(get models :it) times))
+  (btest/generate-speed-test spec models times))
 
 (defn run-passato-prossimo-test []
   (generate-speed-test {:synsem {:cat :verb :subcat []

  (babel.italiano.grammar/model-plus-lexicon
   ;; filtered lexicon:
   (into {}
         (for [[k lexemes] (:lexicon @@(get models :it))]
           (let [filtered-lexemes
                 (filter (fn [lexeme]
                           (or (= k "vedere")

         :head {:comp {:synsem {:pronoun true}}}}]
    (repeatedly #(-> spec generate morph time println))))

(defn sentences-with-pronoun-objects-hints
  "supply a spec enhanced with syntactic info to speed-up generation."  
  []
  (let [spec
        {:modified false
         :synsem {:cat :verb
                  :subcat []
                  :sem {:pred :top
                        :tense :present
                        :aspect :simple
                        :subj {:pred :top}
                        :obj {:pred :top}}}
         :head {:comp {:synsem {:pronoun true}}}}]
    (repeatedly #(-> spec generate morph time println))))

(defn sentences-with-pronoun-objects-small []
  (let [lexicon (:lexicon models)
        transitive-verbs
        (filter (fn [k]
                  (let [lexemes (->> (get lexicon k)
