       (gen-enrollments schools rng (format "/tmp/test/E-%s-enrollment.xml" districtName))
       (gen-saas districtName schools rng assessmentName 10 (format "/tmp/test/G-%s-assessment-results.xml" districtName))
     )
+    (def endTime (System/currentTimeMillis))
+    (def elapsed (/ (-  endTime startTime) 1000.0))
+    (def remain (* elapsed (- (- districtCount 1) ((i :next)))))
+    (println (format "[%d/%d districts] (%f seconds : %f remaining)"  ((i :curr)) districtCount elapsed (max 0.0 remain)))
   )
   (create-control-file)
+  (println "Assessment data generation complete")
 )
 
 ; 100 students

)

(defn enroll [schoolName studentId]
  (gen-enroll schoolName studentId)
  (gen-section-assoc schoolName studentId)
)

(defn gen-enrollments [schools rng output-file]


(defn gen-edfi
  [interchange output-file contents]
  ; (prn output-file)
  (with-open [out (java.io.OutputStreamWriter. (java.io.FileOutputStream. output-file) "UTF-8")]
    (emit (element interchange {:xmlns "http://ed-fi.org/0100"} contents) out)
  )
