 (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"

    :aspect :perfect}
   present-perfect-grammar

   {:tense :future}
   future-grammar})

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

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