Print out Datomic Query Results Nicely in REPL

gistfile1.txt

;; Assumes a Datomic DB where an Entity is defined that has attribute 
;; :park.amenity/label of type string. Subsitute your query in place 
;; of this example.

(let [vec-str (->>  
                (d/q '[:find ?amenity-name
                       :where [?e :park.amenity/label ?amenity-name]]
                     (db)) 
                (sort-by first))]
      (doseq [x vec-str] 
        (println (first x))))