    2) A seq of the unconsumed events.
   "
   [events]
-  (println events)
   (loop [[[type :as evt] & events] events
          xml []]
     (case type

        handler (xml-handler put)]
    (.setContentHandler parser handler)
    (.setProperty parser "http://xml.org/sax/properties/lexical-handler" handler)
    (future
      (try
        (.parse parser in)

(ns rapscallion.xml
  (:require (clojure [xml :as xml])
            (clojure.java [io :as io]))
  (:use (yoodls [pipe :only [pipe pipe-map]]))
  (:import [java.io Writer Reader StringReader]
           [java.util.concurrent LinkedBlockingQueue]
           [org.xml.sax Attributes InputSource]
