(define-structure surflet surflet-interface
  (open scheme-with-scsh
	surflets)
  (begin
    
    (define *count* 10)

    (define content
      `(html
	(head (title "Ein JavaScript-Versuch"))
	(body
	 (script (@ (type "text/javascript"))
		 (*COMMENT*
		  " 
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!"))))

    (define (main req)
      (send-html/finish content))))