                                  form)
         :else form))
     raw-xml-2))
+
+(def class-node
+  (xml/element :Class {}
+               (xml/element :Foo {})
+               (xml/element :DanceList {}
+                            (xml/element :Dance {})
+                            (xml/element :Dance {})
+                            (xml/element :Dance {}))
+               (xml/element :Bar {})))
+
+(get-dance-count-from-class-node class-node)
+
+
 
 (xml/parse (java.io.FileInputStream. "test/tango/examples/real-example-kungsor.xml"))
 

               (make-mark-list-node (:marks couple-data))
               ))

(defn make-result-node [result-array seq adj-qty]
  (xml/element :Result
               {:Seq seq
                :Round "Awsome3"
                :AdjQty adj-qty
                :D3 "0"}
               (reduce #(conj %1 (make-couple-node %2 (count %1) 666 adj-qty)) [] result-array)))

(defn fix-class [class class-result]
  (clojure.walk/postwalk

(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))))

(defn make-mark-node [mark seq]
  (xml/element :Mark
               {:Seq seq
