                   (let [obj-sem (atom :top)]
                     {:synsem {:cat :prep
                               :subcat {:1 {:cat :noun
+                                           :case :acc
+                                           :subcat '()
                                            :sem obj-sem}
                                        :2 '()}
-                              :sem {:obj obj-sem}}}))))))
-
-
+                              :sem {:obj obj-sem}}}))
+
+                 (default
+                  (let [location (atom :top)]
+                    {:synsem {:cat :verb
+                              :subcat {:2 {:subcat '()}}}}))
+                 (default
+                  (let [location (atom :top)]
+                    {:synsem {:cat :verb
+                              :sem {:location location}
+                              :subcat {:2 {:cat :prep
+                                           :sem location}}}}))
+                                         
+                 ))))
+
+

                       :sem {:pred :improve}}}

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

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


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

   "table" {:synsem {:agr {:gender :masc}
                     :cat :noun
                     :sem {:pred :table}}}

   "take" (let [common {:synsem {:cat :verb}
                        :english {:past "took"
