   ([tree pred-map pred-final-fn] (query-dos tree pred-map pred-final-fn)))
 
 
+;; === helpers
 
 (defn some-zippers
   [zipr-seq node tags-fn pred-fn]

(ns com.billpiel.mem-tracer.query2
  (require [com.billpiel.mem-tracer.trace :as tr]
           [clojure.zip :as z]
           [com.billpiel.mem-tracer.util.tree-query :as tq]))



(defn query-tree
  [qry-fn tree]

      [e']
      (:children e'))))

(defn query-dos
  [tree pred-map pred-final-fn] ;; pred-final-fn takes a node (w/ :zipper) and fn to retrieve tags from a node
  (let [tag-map (get-tag-map tree pred-map)
