                         babel.generate/grammar grammar]
                 (time (generate spec model))))))))
 
+(def chiamarsi-grammar
+  #{"s-aux"
+    "sentence-phrasal-head"
+    "vp-aux-phrasal-complement"
+    "vp-pronoun-phrasal"
+    "vp-32"})
+
 (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])))

               (cond
                 (not (= :fail
                         (unify
                          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
