      "Randolph","Raquette","Ravena","Red-Creek","Red-Hook","Remsen","Remsenburg",
      "Salem","Salmon","Sandy-Creek","Saranac","Saranac-Lake","Saratoga-Springs","Saugerties","Sauquoit-Valley" ] )
 
-(defn gen-district-schools
-  [districtCount schoolsPerDistrict studentsPerSchool]
+(defn gen-district-schools [districtCount schoolsPerDistrict studentsPerSchool]
   ; should distribute this in a more normal distribution
   (for [i (range 1 (+ districtCount 1))
     :let [r (assoc (hash-map) (districts i)
       (for [j (range 1 (+ 1 schoolsPerDistrict))]
-        (format "%s-PS-%s" (districts i) (str j))))]]
+        (format "PS-%s" (str (+ i j)))))]]
    r)
 )
 

      )
      (element :SessionReference {}
        (element :SessionIdentity {}
          (element :SessionName {} (format "%s-Fall-2011" districtName))
        )
      )
    ) ]


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