   ([#^Request req body-fn completed-fn headers-fn]
      (execute-request req body-fn completed-fn headers-fn print-status))
   ([#^Request req body-fn completed-fn headers-fn status-fn]
-     (let [id (gensym "RequestId__")]
+     (println
+      (str req " " body-fn " " completed-fn " " headers-fn " " status-fn))
+     (let [id (gensym "req-id__")]
        (.executeRequest
 	ahc req
 	(proxy [AsyncHandler] []

	      (println "Completed")
	      200))
	  (onThrowable [#^Throwable t]
	    (println (.getMessage t))))))))
  {:tag Request}
  (prepare-request :get url))

(defn convert-action
  "Converts action (:abort, nil) to Async client STATE."
  [action]
  {:tag com.ning.http.client.AsyncHandler$STATE}
  (if (= action :abort)
    com.ning.http.client.AsyncHandler$STATE/ABORT
    com.ning.http.client.AsyncHandler$STATE/CONTINUE))

(defn execute-request
  "Executes provided reqeust with given callback functions."
  ([#^Request req]
