     {:participant/name (get-name-attr couple)
      :participant/club (zx/attr couple :Club)
      :participant/number (get-number-attr couple)
-     :participant/id (id-generator-fn)
-     ;:competitor/position (get-seq-attr couple)
-     }))
+     :participant/id (id-generator-fn)}))
 
 (defn- dance-list->map [dances-loc]
   (for [dance dances-loc]

              []
              (filter #(= (:class/position class) (:dp/temp-class-id %)) rounds))
             
             :class/adjudicator-panel (first (filter #(= (:dp/temp-id (:class/adjudicator-panel class))
                                                         (:dp/panel-id %))
                                                     panels))})
     :class/results)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  (adjudicator-panel-list->map (zx/xml-> xml :AdjPanelList :PanelList :Panel) id-generator-fn adjudicators))

(defn rounds-xml->map [xml id-generator-fn]
  (round-list->map (zx/xml-> xml :EventList :Event) id-generator-fn))

(defn classes-xml->map [xml id-generator-fn]
