 
       exception-generator2 ;; add new keys to the map for all exceptions found.
 
+      ;; <noun default rules>
       (default ;; a noun by default is neither a pronoun nor a propernoun.
        {:synsem {:cat :noun
                  :pronoun false

       {:synsem {:cat :verb
                 :subcat {:2 {:cat :noun
                              :case :acc}}}})

      (default ;;  a verb's first argument defaults to the semantic subject of the verb.
       (let [subject-semantics (atom :top)]
         {:synsem {:cat :verb

                     (= :none (get-in % [:synsem :agr :gender] :none))
                     (= false (get-in % [:synsem :propernoun] false))
                     (= false (get-in % [:synsem :pronoun] false))))
           (and (log/warn (str "ignoring common noun with no gender specified: " %))
                false)))
     
     ;; filter out entries with no :cat.
