                                               :marks [false false true]}]}}
                     ])
 
-(def a-result-array (get-in (first class-results) [:result :result-array] ))
-(def a-couple-data (first a-result-array))
-(def a-marks (:marks a-couple-data))
-
 (defn get-dance-count-from-class-node [class-node]
   (let [dance-list-node (first (filter #(= (:tag %) :DanceList) (:content class-node)))]
     (count (:content dance-list-node))))

        :else form))
    class))

(defn new-stuff-2 [class-result]
  (clojure.walk/postwalk
    (fn [form]
      (cond

                                 ;(xml/element :Class {:Name "Changed Class"})
                                 form)
        :else form))
    xml-data))

(defn smoke-test []
  (let [in-xml (get-xml-from-file "test/tango/examples/real-example.xml")
        out-xml (add-results-to-dp-xml in-xml (first class-results))]
    (spit "export5.xml" (xml/emit-str out-xml))))

(smoke-test)

;; API
(defn export-results [stuff]
  (log/info (str "Export Results with " stuff)))
