     (doseq [c cs]
       (go (>! c (step))))
     (repeatedly concurrency #(first (alts!! cs)))))
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 
 
 ;STEP 3




;;; Load testing using core.async (@mhjort) ;;;




        (async-http-get-with-timeout url timeout c))
    (go-loop [i 0]
      (let [[result c] (alts! cs)]
        (async-http-get-with-timeout url timeout c)
        (>! results result)
        (when (<= i number-of-requests)
          (recur (inc i)))))
    (repeatedly number-of-requests #(<!! results))))













