(use html-form)

(define Country-List
  `("Afghanistan"
    "Albania"
    "Algeria"
    "American Samoa"
    "Andorra"
    ))

(define form-variables
  `(
    (form-group Personal-Data (label "Personal Data")
		(children 
		 (First-Name         ""  (label "First Name * "))
		 (Last-Name          ""  (label "Last Name * "))
		 (email              ""  (label "Email address * "))
		 (Nationality        ""  (label "Nationality *")
				     (select ,Country-List))
		 (Birth-Year         ""
				     (label "Year of birth *")
				     (select ,(list-tabulate 50 (lambda (i) (number->string (+ 1940 i))))))
		 (Gender             "" 
				     (label "Gender *")
				     (select ("Female" "Male")))
		 ))

    (form-group   Education (label "Education & professional background")
		  (children 
		   (Degree     "" (label "Last degree obtained ")
			       (select 
				     ("Bachelor of Science"
				      "Master of Science"
				      "Ph.D."
				      "Current undergraduate student")))
		   (Major      "" (label "Academic major ")
			       (select 
				     ("Artificial Intelligence"
				      "Biochemistry"
				      "Biology"
				      "Biomedicine"
				      "Biophysics"
				      "Biotechnology"
				      "Chemistry"
				      "Cognitive science"
				      "Computational Biology"
				      "Computational Neuroscience"
				      "Computer Science"
				      "Engineering" 
				      "Genetics"
				      "Mathematics"
				      "Medicine"
				      "Neural Networks"
				      "Neuroinformatics"
				      "Neuroscience"
				      "Physics"
				      "Psychology"
				      "Systems Biology"
				      "Other")))
		   (Degree-Other ""   (label "Degree obtained if other "))
		   (Education-History ""  
				      (label "Education history")
				      (hint "Please list year, institution, and highest degree obtained. ")
				      (textarea (rows 10) (cols 60)))
		   
		   ))))

(pretty-print (map (lambda (x) (html-form x)) form-variables))