                  :legible false
                  :place true}
 
+   {:clothing true} {:animate false
+                     :place false
+                     :physical-object true}
+
+   {:consumable true} {:activity false
+                       :buyable true
+                       :furniture false
+                       :legible false
+                       :pet false
+                       :physical-object true
+                       :speakable false}
+
+   {:consumable false} {:drinkable false
+                        :edible false}
+    
    {:human true} {:animate true}
 
    {:living true} {:artifact false}


                    true
                    (merge input
                           activity animate artifact buyable city clothing consumable consumable-false drinkable
                           drinkable-xor-edible-1 drinkable-xor-edible-2
                           edible furniture human inanimate
                           legible material-false non-places

    (cond
      (= input :top) input
      true
      (let [activity   (get-encyc input :activity)
            animate    (get-encyc input :animate)
            artifact   (get-encyc input :artifact)
            buyable    (get-encyc input :buyable)
            city       (get-encyc input :city)
            clothing   (get-encyc input :clothing)
            consumable (get-encyc input :consumable)

            drinkable
            ;; drinkables are always mass nouns.
