   (get encyc {k (get-in input [k])} {}))
 
 (defn impl-list [input]
-  [(get-encyc input :activity)
+  [
+   (get-encyc input :activity)
    (get-encyc input :animate)
    (get-encyc input :artifact)
    (get-encyc input :buyable)

              :part-of-human-body)
   (get-encyc input :pet)
   (get-encyc input :place)
   (get-encyc input :time)])

(defn sem-impl [input & [original-input]]
  "expand input feature structures with semantic (really cultural) implicatures, e.g., if human, then not buyable or edible"

   }
  )

(defn null-sem-impl [input]
  "null sem-impl: simply return input."
  (log/trace (str "null-sem-impl:" (strip-refs input)))
