(defn select-fragments* [nodes selector]
  (let [[selector-from selector-to] (first selector) 
        state-from (automaton selector-from)
        state-to (automaton selector-to)]
    (map #(map z/node %) 
      (zip-select-fragments* (map xml/xml-zip nodes) state-from state-to))))