     ; not really tied to repl in long term, but whatever
     ; (start-forwarding storage client)
     (sync-addresses! system)
-    (execute (build-cmd "list"))
+    (exec-cmd "list")
     (go-loop [command (<! (read-in))]
         (if (exit? command)
             (do (println "Shutting down...")
                 (.exit js/process))
             (do 
-                (execute (build-cmd command)) 
+                (exec-cmd command)
                 (recur (<! (read-in)))))))
 
 (defn -main [& args]


(def system {:storage storage :client client})
(def build-cmd (partial assoc system :command))

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

        (->> args
            (map #(str % " "))
            (apply str)
            exec-cmd)))

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