         n (- 30 (count adjudicator-panels))
         padded-panels (repeat n {:adjudicator-panel/adjudicators []})
         all-panels (into adjudicator-panels padded-panels)]
-    (make-panel-list-node all-panels)))
+    (old-make-panel-list-node all-panels)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; AdjPanelList
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defn- export-adj-panel-list [db]
+(defn- old-export-adj-panel-list [db]
   (xml/element
     :AdjPanelList
     {}
-    (export-adj-list db)))
+    (old-export-adj-list db)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Utils

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; AdjPanelList/AdjList
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn- make-adjudicator-node [adjudicator-info]
  (let [name (:adjudicator/name adjudicator-info)
        id (:adjudicator/id adjudicator-info)
        country (:adjudicator/country adjudicator-info)]

    (d/transact! conn [(uidb/sanitize data)])
    (d/db conn)))

(defn- old-export-dance-perfect [db]
  (xml/element
      :DancePerfect
      {:Version "4.1"}
      [(old-export-adj-panel-list db)
       (old-export-panel-list db)]
      ))

(defn old-export [data]
  (let [db (get-db data)]
    (old-export-dance-perfect db) ;; TODO: def queries in file and pass in query result
    ))

(xml/indent-str
  (old-export u/expected-small-example))

