   :clear)
 
 (defn- group-deep-clear*
-  "Free all child synth nodes in and below this group in other child groups."
+  "Free all child synth nodes in and below this group in other child
+  groups."
   [group]
   (snd "/g_deepFree" (to-synth-id group))
   :clear)

    (snd "/n_mapn" node-id (first (stringify [start-control])) (bus-id start-bus) n)))

(defn- group-post-tree*
  "Posts a representation of this group's node subtree, i.e. all the groups and
  synths contained within it, optionally including the current control values
  for synths."
  [id & [with-args?]]
  {:pre [(server-connected?)]}
  (snd "/g_dumpTree" id with-args?))

  (to-synth-id [_] id))

(defn group
  "Create a new synth group as a child of the target group. By default
  creates a new group at the tail of the root group."
  ([] (group :tail (root-group)))
  ([position target] (group (alloc-id :node) position target))
  ([id position target]
