query.clj

(defn query-node-with-path
  ([[ s & _ :as source ]
    {type :type children :children wf :word-fragment :as node}
    acc]
     (prn "source " source)
     (prn "s " s)
     (prn "type " type)
     (prn "node " node)
     (prn "acc " acc)))

;; user> (query-node-with-path [1 2 3 4 5] {:type "node" :children "children"} :accumulator)
;; "source " [1 2 3 4 5]
;; "s " 1
;; "type " "node"
;; "node " {:children "children", :type "node"}
;; "acc " :accumulator