*scratch*

(defn get-bounds [objects 
		  coordinate-func]
  "Returns a seq of the min and max coordinates"
  (let [[start & coords] (map coordinate-func objects)]
    (reduce (fn [[min-acc max-acc] coord] 
	      [(map min min-acc coord)
	       (map max max-acc coord)])
	    [start start] coords)))