   "generate sentences efficiently given specific constraints."
   [& [spec]]
 
-  (let [basic-grammar
+  (let [example-verbs #{"arrabbiarsi" "chiamarsi" "dormire" "fermarsi" "parlare" "sedersi"} 
+
+        basic-grammar
         #{"sentence-nonphrasal-head"}
         
         present-grammar


        ;; this is a lot like a lexical compilation default map.
        rule-matcher
        {:top
         basic-grammar

         ;; example of a specific root's influence on grammar to be
         ;; be used for generation.
         {:root {:italiano {:italiano "chiamarsi"}}}
         chiamarsi-grammar
         
         {:synsem {:sem {:tense :present
                         :aspect :perfect}}}
         present-perfect-grammar
         
         {:synsem {:sem {:tense :future}}}
         future-grammar
         
         {:synsem {:sem {:tense :conditional}}}
         future-grammar
         
         {:synsem {:sem {:tense :past
                         :aspect :progressive}}}
         future-grammar
         
         {:synsem {:sem {:tense :present
                         :aspect :simple}}}
         present-grammar}

        rule-matcher-reducer
        (fn [input-spec]

                   spec))

               root-spec
               (let [unif
                     (unify spec
                            {:root {:italiano {:italiano
                                               (first (shuffle example-verbs))}}})]
