(defn tagged? [tag exp]
  (and (seq? exp)
       (-> exp empty? not)
       (-> exp first (= tag))))