 
 (def present-perfect-grammar
   #{"s-aux"
+    "vp-aux-22-nonphrasal-comp"
+    "vp-aux-22-phrasal-comp"
     "vp-aux-nonphrasal-complement"
     "vp-aux-phrasal-complement"
+    "vp-pronoun-phrasal"
     "vp-pronoun-nonphrasal"})
 
 (defn create-index-fn [verb-set grammar]

        indices (create-indices lexicon verbcoach-index-paths)]
    (fn [spec]
      (lookup-spec spec indices verbcoach-index-paths))))

(defn arrabbiarsi
  "generate arrabiarsi sentences with a grammar subset."

    (binding [babel.generate/println? true
              babel.generate/truncate? false
              babel.generate/grammar grammar
              ;; TODO: if this works, use this exception-filtering everywhere we generate Italiano.
              babel.generate/lexical-filter (fn [lexeme] (= false (u/get-in lexeme [:italiano :exception] false)))
              babel.generate/index-fn index-fn]
      (time (generate spec model)))))

