   (gen-edfi :InterchangeAssessmentMetadata output-file (create-assessment assessmentName))
 )
 
-(defn get-perf-level
-  [score]
+(defn get-perf-level [score]
   (cond
     (> 14 score) "W"
     (> 20 score) "B"

  )
)

(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-section-assoc
  [schoolName studentId]
  (element :StudentSectionAssociation {}
    (student-ref schoolName studentId)
    (element :SectionReference {}
      (element :SectionIdentity {}
        (element :StateOrganizationId {} schoolName)
        (element :UniqueSectionCode {}  (format "%s-Math-7-2011-Sec2" schoolName))
      )
    )
    (element :BeginDate {} "2011-09-06")
    (element :EndDate {} "2011-12-16")
  )
)

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

(defn gen-enrollments [schools rng output-file]
  (gen-edfi :InterchangeStudentEnrollment output-file
    (for [schoolName schools]
      (for [id rng]
        (enroll schoolName id)
      )
    )
  )
)

(defn create-session [districtName schoolName]
  (into () [
    (element :CalendarDate {:id (format "%s_day" districtName) }
      (element :Date {} "2011-09-22")
      (element :CalendarEvent {} "Instructional day")
    )

    (element :GradingPeriod {:id (format "%s-GP1" districtName)}
      (element :GradingPeriodIdentity {}
        (element :GradingPeriod {} "End of Year")
        (element :SchoolYear {} "2011-2012")
