                (make-mark-list-node (:marks couple-data))
                ))
 
-(defn make-result-node [result-array seq adj-qty]
+(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) 666 adj-qty)) [] result-array)))
+               (reduce #(conj %1 (make-couple-node %2 (count %1) dance-qty adj-qty)) [] result-array)))
 
 (defn fix-class [class class-result]
   (clojure.walk/postwalk

                                              ;; 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)
                                                             )
                                              })
        :else form))

(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
