 
 (defn ctl
   "Modify synth parameters, optionally at a specified time.
-  
-  (hit :sin :pitch 50) => 1000 
+
+  (hit :sin :pitch 50) => 1000
   (ctl 1000 :pitch 40)
   (ctl (+ (now) 2000) 1000 :pitch 60)
-  
+
   "
   [& args]
   (let [[time-ms synth-id ctls] (if (odd? (count args))
                                     [(now) (first args) (next args)]
                                     [(first args) (second args) (drop 2 args)])]
     (println time-ms synth-id ": " ctls)
-    (at time-ms 
+    (at time-ms
         (apply node-control synth-id (stringify ctls)))))
 
 (defn kill

  (recv "/synced"))

; size is in samples
(defn buffer 
  "Allocate a new buffer for storing audio data."
  [size]
  (let [id (next-buffer-id)]

  [path & [timeout]]
  (osc-recv @server* path timeout))

(defn connect
  ([] (connect SERVER-HOST SERVER-PORT))
  ([host port]
   (log/info "(connect " host ":" port)
