   (def sectionName "7th Grade Math - Sec 2")
   (def assessmentName "Grade 7 State Math")
 
-  (gen-assessment assessmentName "/tmp/test/A-assessment.xml")
+  (gen-assessment assessmentName "/tmp/test/F-assessment.xml")
+  (def rng (range 1 (+ 1 studentCount)))
   (doseq [ [district] (map list (gen-district-schools districtCount schoolCount studentCount))]
     (doseq [ [districtName schools] district]
-      (gen-schools districtName schools (format "/tmp/test/B-%s-schools.xml" districtName))
-      (gen-session districtName (format "/tmp/test/C-%s-calendar.xml" districtName))
-      (gen-sections districtName schools (format "/tmp/test/D-%s-master-schedule.xml" districtName))
-      (doseq [ schoolName schools ]
-        (def rng (range 1 (+ 1 studentCount)))
-        (gen-students schoolName rng (format "/tmp/test/E-%s-student.xml" schoolName))
-        (gen-enrollments districtName schoolName rng "7th Grade Math - Sec 2" (format "/tmp/test/F-%s-enrollment.xml" schoolName))
-        (gen-saas schoolName rng assessmentName 6 (format "/tmp/test/G-%s-assessment-results.xml" schoolName))
-      )
+      (gen-schools districtName schools (format "/tmp/test/A-%s-schools.xml" districtName))
+      (gen-sessions districtName schools (format "/tmp/test/B-%s-calendar.xml" districtName))
+      (gen-sections districtName schools (format "/tmp/test/C-%s-master-schedule.xml" districtName))
+      (gen-students schools rng (format "/tmp/test/D-%s-student.xml" districtName))
+      (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))
     )
   )
   (create-control-file)

  )
)

(defn gen-students [schoolName ids output-file]
  (gen-edfi :InterchangeStudentParent output-file
    (into ()
      [
        (for [id ids
          :let [tmp (gen-student schoolName id)]]
          tmp
        )
      ]
    )
  )
)

(defn create-school [districtName, schoolName]
  (let [tmp (element :School {}
    (element :StateOrganizationId {} schoolName)
    (element :EducationOrgIdentificationCode {:IdentificationSystem "School"}
      (element :ID {} schoolName)


(defn gen-sections [districtName schools output-file]
  (gen-edfi :InterchangeMasterSchedule output-file
    (for [schoolName schools]
      (reverse (create-section districtName schoolName))
    )
  )
)
