                  (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])))

                        babel.generate/index-fn index-fn]
                (time (generate spec model))))))))

(defn arrabbiarsi-or-sedersi
  "generate arrabiarsi sentences with a grammar subset."
  []
  (let [verb-set #{"arrabbiarsi" "chiamarsi" "fermarsi" "parlare" "sedersi"}
        verb-set #{"chiamarsi"}
        specs
        (map (fn [root]
               {:root {:italiano {:italiano root}}})

               (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
