                                               ;; TODO - ML fixar och noterar saknad data
                                               :content (conj (vec (:content form))
                                                              ;(xml/element :Foo {})
-                                                             (make-result-node (get-in class-result [:result :result-array] ) (count (:content form)) 3)
+                                                             (make-result-node
+                                                              (get-in class-result [:result :result-array] )
+                                                              (count (:content form))
+                                                              (get-dance-count-from-class-node class)
+                                                              3)
                                                              )
                                               })
         :else form))

(def a-couple-data (first a-result-array))
(def a-marks (:marks a-couple-data))

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

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

