What would be the best way to access properties of keys in a map schema? Suppose we have

(def example
  [:map
   [:foo {:default :x} [:enum :x :y :z]]
   [:bar {:default 0}  :int]])

(reduce (fn [result [key properties]]
          (assoc result key properties))
        {}
        (m/children example))