(defmacro generate-data (x-fn y-fn filename)
  `(with-open-file (stream ,filename :direction :output :if-exists :supersede)
    (dotimes (x 1000) (init-db) (format stream "~30a ~30a~%" (,x-fn) (,y-fn)))))

(generate-data energy effort "Ee.dat")
(generate-data energy defects "Ed.dat")
(generate-data energy risk "Et.dat")
(generate-data energy months "Em.dat")
(generate-data effort months "em.dat")
(generate-data effort defects "ed.dat")
(generate-data effort risk "et.dat")
(generate-data months defects "md.dat")
(generate-data months risk "mt.dat")
(generate-data risk defects "td.dat")