                  obj (atom :top)
                  agr (atom :top)]
              (unify common
-                    {:synsem {:cat :verb
+                    {:sense 4
+                     :synsem {:cat :verb
                               :sem {:subj obj ;; reflexive: subj=obj
                                     :obj obj
                                     :reflexive true

                                       :3plur "were"}}}]
          [;; intransitive
           (unify common
                  {:synsem {:subcat {:1 {:cat :noun}
                                     :2 '()}
                            :sem {:pred :be}}})


                                :gender gender})] ;; prevents e.g. "Her name is John"
             (unify common
                    subject-verb-agreement
                    {:sense 2
                     ;; TODO: remove (in)transtivize (false|true): should not
                     ;; need these explicit compiler directives; compilation
                     ;; should be able to manage on its own
                     :intransitivize false
                     :transitivize false
                     :synsem {:agr subj-agr
                              :sem {:aspect :progressive
