(module teachscheme mzscheme
  (require "../private/headelts.ss"
           (lib "servlet.ss" "web-server"))
  (provide interface-version timeout start)
  (define interface-version 'v1)
  (define timeout +inf.0)
  (define (start initial-request)
    (report-errors-to-browser send/finish)
    `(html
      (head ,hd-css ,@hd-links (title "TeachScheme! Workshops"))
      (body
       (h1  "TeachScheme! Workshops")
       (a ([name "workshops"] [value "TeachScheme! workshops"]))
       "TeachScheme! is a free summer workshop for high school teachers. "
       "Its goal is to bridge the gulf between high school and "
       "college-level computing curricula.  In the workshop, programming "
       "is taught as an algebraic problem-solving process, and computing "
       "is the natural generalization of grade-school level calculating." 
       (p)
       "Students who learn to design programs properly learn to "
       "analyze a problem statement; express its essence, abstractly "
       "and with examples; formulate statements and comments in a "
       "precise language; evaluate and revise these activities in "
       "light of checks and tests; and pay attention to details. "
       "As a result, all students benefit, those who wish to study computing "
       "as well as those who just wish to explore the subject."
       (p)
       "For more information, see the "
       (a ([href "http://www.teach-scheme.org/Workshops/"]
           [TARGET "_top"])
          "TeachScheme! Workshops page") "."))))