(defn foo []
  (let [maps [get-messages]
        ks   (keys (dissoc (first maps) :id))]
    (map (apply juxt ks) maps)))