(require anyevent-http)
(require anyevent)
(def cv (anyevent#condvar))
(def hg (anyevent-http#get "http://www.google.com"
(fn [data header]
(println data)
(println header)
(anyevent#condvar-send cv)
(anyevent#cancel hg))))
(anyevent#condvar-recv cv)