                                                              ;(xml/element :Foo {})
                                                              (make-result-node
                                                               (get-in class-result [:result :result-array] )
+                                                              (get-in class-result [:result :round] )
                                                               (count (:content form))
                                                               (get-dance-count-from-class-node class)
                                                               (count  (get-in class-result [:result :adjudicators] )))

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

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

  (xml/parse (java.io.FileInputStream. "test/tango/examples/real-example.xml")))

(def class-results [{:class-name "Disco Freestyle B-klass J Po"
                     :result {:round "S"
                              :adjudicators [{:number 2}
                                            {:number 4}
                                            {:number 5}]
                              :dances [{:name "X-Quick Forward"}
