                (cond
                  (not (= :fail
                          (unify
-                          (u/get-in chosen-spec [:synsem :sem])
-                          {:root {:root "chiamarsi"}})))
-                 (do (log/warn "chiamarsi: gotta use everything.")
-                     (:grammar model))
+                          chosen-spec
+                          {:root {:italiano {:italiano "chiamarsi"}}})))
+                 (filter (fn [rule-structure]
+                           (contains? chiamarsi-grammar
+                                      (u/get-in rule-structure [:rule])))
+                         (:grammar model))
+
                  (not (= :fail
                          (unify(u/get-in chosen-spec [:synsem :sem])
                                {:tense :present

                        babel.generate/grammar grammar]
                (time (generate spec model))))))))

(def future-grammar
  #{"sentence-phrasal-head"
    "vp-pronoun-phrasal"

                 (not (= :fail
                         (unify (u/get-in chosen-spec [:synsem :sem])
                                {:tense :future})))
                 (filter (fn [rule-structure]
                           (contains? future-grammar
                                      (u/get-in rule-structure [:rule])))
