 (set! (.-colors prompt) false)
 
 (def storage (->File "FAKE"))
-; (def client (->Bitcoind ""))
+(def client (->FakeClient ""))
 
 (defn- read-prompt [message]
     (let [return (chan 1)]

                (execute {
                    :storage storage
                    :command command
                    ; :client client
                    }) 
                (recur (<! (read-in)))))))


            :command (->> args
                        (map #(str % " "))
                        (apply str))
            :client client
            })))

(set! *main-cli-fn* -main)
