                                        } ;; subcat {
                               } ;; synsem {
                      } ;; end of map
-                    ))])
+                    )
+
+             (unify common
+                    {:synsem {:sem {:pred :be}
+                              :subcat {:2 {:cat :prep}}}}))])
 
    "be able to" {:english {:imperfect {:1sing "was able to"
                                        :2sing "were able to"

                  (let [obj-sem (atom :top)]
                    {:synsem {:cat :prep
                              :subcat {:1 {:cat :noun
                                           :sem obj-sem}
                                       :2 '()}
                              :sem {:obj obj-sem}}}))))))



                       :sem {:pred :improve}}}

   "in front of" {:synsem {:cat :prep
                           :sem {:pred :in-front-of
                                 :obj {:furniture true}}}}

   "increase" {:synsem {:cat :verb
                        :sem {:pred :increase}}}
