non lazy.clj

(def urls {:vg "https://www.vg.no", :ap "https://www.ap.no", :db "https://www.db.no"} )

(defn my-get-request [[k url]]
  [k (future (http/get url))])

(->> urls
     (map my-get-request)
     (reduce (fn [acc [k v]]
               (assoc acc k (deref v))) {}))

(defn my-get [i]
  [i (future (:status (http/get "https://www.vg.no")))])

(defn transmogrify [acc [k v]]
  (let [t (System/currentTimeMillis)
        v' (deref v)]
    (println "Spent " (- (System/currentTimeMillis) t) "ms dreffing" k)
    (assoc acc k v')))

(->> (range 100)
     (reduce (fn [acc i] (conj acc (my-get i))) [])
     (reduce transmogrify {}))

does the thing :)