 (defn get-balance [urls address]
   (go
     (if-let [url (-> urls first (.replace "$address$" address))]
-      (let [response (a/<! (request url))]
+      (let [response (<! (request url))]
         (if-let [error (:error response)]
           (do
             (println "zomg error" error)
-            (a/<! (get-balance (rest urls) address)))
+            (<! (get-balance (rest urls) address)))
           (-> response parse-body balance))))))
 
 (defn address->balance [urls address]
   (go
-    (let [amount (a/<! (get-balance urls address))]
+    (let [amount (<! (get-balance urls address))]
       [address amount])))
-
 
 (defn- send? [fee amount]
     (< (* 3 fee) amount))

   "https://blockchain.info/address/$address$?format=json"])

(defn- balance [result]
  (or (.-final_balance result)
      (some-> result
        .-data
        .-address
        .-confirmedBalance)))

(defn- parse-body [response]
  (->> response

        (-> wallet .-addresses js->clj))
    (unspent-amounts [this]
      (let [my-addrs (addresses this)]
        (if (empty? my-addrs)
          (go nil)
          (->> my-addrs
            (map (partial address->balance urls))
            (a/merge)
            (a/into { })))))
    (unspent-channel [this]
      (let [return (a/chan)]
        (js/setInterval
