counting parts and collecting body

gistfile1.clj

(let [counter (atom 0)]
  (http-r/execute-request
   c (http-r/prepare-request :get "http://www.nu.nl/")
   :part (fn [resp part]
           (swap! counter inc)
           (println @counter)
           (http-r/body-collect resp part))
   :completed (fn [resp]
                (println (count (http/string resp)))
                (println :parts @counter))))