                                :subcat []}}
                      {:synsem {:cat :verb
                                :sem {:tense :future}
-                               :subcat []}}]]
+                               :subcat []}}
+                     {:synsem {:cat :verb
+                               :sem {:tense :present
+                                     :aspect :simple}}}]]
     (repeatedly
      #(do (println "")
           (println

    :aspect :perfect}
   present-perfect-grammar

   {:tense :future}
   future-grammar})

(defn rule-matcher-reducer [input-spec]
  (reduce

(def basic-grammar
  #{"sentence-nonphrasal-head"})

(def present-grammar
  #{"sentence-phrasal-head"
    "vp-pronoun-phrasal"
    "vp-pronoun-nonphrasal"})

(def chiamarsi-grammar
  #{"s-aux"
    "sentence-phrasal-head"
