   ((or *get-tags-mz* get-tags)
    node
    pred-map))
-
-#_ (get-tags' {:id 1} {:a #(-> % :id #{1}) :b #(-> % :id #{1})})
 
 (defn insert-tags-into-parent-tag-summary
   [& [tags summary]]

              (right-sib-zips d))
    []))



(defn set-zip-children
  [z c]
  (z/edit z #(z/make-node z

                       #(assoc % :children %2)
                       tree))

     (def qr1 (query z1 {:a #(-> % :id #{6})}
                     #(->> % :children :set (some #{:a}))
                     ))

     (ppcp (z/root z1))


