   ([id & [ctls?]]
      (ensure-connected!)
      (let [ctls? (if (or (= 1 ctls?) (= true ctls?)) 1 0)
-           id (to-synth-id id)]
+           id    (to-synth-id id)]
        (let [reply-p (recv "/g_queryTree.reply")
-             _ (snd "/g_queryTree" id ctls?)
-             tree (:args (deref! reply-p))]
+             _       (snd "/g_queryTree" id ctls?)
+             tree    (:args (deref! reply-p))]
          (with-meta (parse-node-tree tree)
            {:type ::node-tree})))))
 

  [group node]
  (ensure-connected!)
  (let [group-id (to-synth-id group)
        node-id (to-synth-id node)]
    (snd "/g_head" group-id node-id)))

(defn- group-append-node*

  {:freq 440.0 :attack 0.2}"
  [node names]
  (ensure-connected!)
  (let [res   (recv "/n_set")
        cvals (do (apply snd "/s_get" (to-synth-id node) (stringify names))
                  (:args (deref! res)))]
    (apply hash-map (keywordify (drop 1 cvals)))))
