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

                                       } ;; subcat {
                              } ;; synsem {
                     } ;; end of map
                    ))])

   "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
                                           :case :acc
                                           :subcat '()
                                           :sem obj-sem}
                                       :2 '()}
                              :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}}}}))
                                         
                 ))))


