(defn f [data]
     (->> data
         (map :a-key)
         (interpose ", ")
         (reduce str)))