     (let [tree (:args (osc-recv @server* "/g_queryTree.reply" REPLY-TIMEOUT))]
       (parse-node-tree tree))))
 
-(defn prepend-node 
+(defn prepend-node
   "Add a node to the end of a group list."
   [g n]
   (snd "/g_head" g n))
 
-(defn append-node 
+(defn append-node
   "Add a node to the end of a group list."
   [g n]
-  (snd "/g_tail" g n)) 
+  (snd "/g_tail" g n))
 
 (defn group-clear
   "Free all child synth nodes in a group."
   [group-id]
   (snd "/g_freeAll" group-id))
 
-(defn clear-msg-queue 
+(defn clear-msg-queue
   "Remove any scheduled OSC messages from the run queue."
   []
   (snd "/clearSched"))

  ([] (hit (now) "sin" :pitch (+ 30 (rand-int 40))))
  ([& args]
   (let [[time-ms synth args] (if (= Long (type (first args)))
                                [(first args) (second args) (nnext args)] 
                                [(now) (first args) (next args)])
         id (next-node-id)
         synth (cond


(defn- boot-thread [cmd]
  (reset! running?* true)
  (let [proc (.exec (Runtime/getRuntime) cmd)
        in-stream (BufferedInputStream. (.getInputStream proc))
        err-stream (BufferedInputStream. (.getErrorStream proc))
        read-buf (make-array Byte/TYPE 256)]
