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

(ns bitsplit-cli.core
    (:use [cljs.core.async :only (chan put! <!)]
          [bitsplit-cli.filesystem :only (->File)]
          [bitsplit-cli.commands :only (execute)])
    (:use-macros 
        [cljs.core.async.macros :only (go-loop)]))

(set! (.-colors prompt) false)

(def storage (->File "FAKE"))
(def client (->FakeClient ""))

(defn- read-prompt [message]
    (let [return (chan 1)]
