(import (scheme base)
        (scheme write)
        (chibi net)
        (chibi net servlet)
        (chibi net http-server)
        (chibi sxml))

(run-http-server
 8080
 (http-procedure-servlet "/"
   (lambda (req)
     (display (sxml->xml
               '(h1 "Hello"))
              (request-out req)))))