(require (lib "xml.ss" "xml"))

(define *count* 10)

(define content
  `(html
    (head (title "Ein JavaScript-Versuch"))
    (body
     (script ((type "text/javascript"))
,(make-comment (string-append
"
count=" (number->string *count*) ";

for (var i = 1; i <= count; i++) {
  document.write(\"i ist \" + i + \"<br>\");
}

document.write(\"Gehen Sie weiter, hier gibt es nichts zu sehen!\");
//")))
     (br)
     (p "Das war ein dynamisch erzeugtes JavaScript!"))))

(write-xml/content (xexpr->xml content))