racket/collects/web-server/default-web-root/htdocs/Defaults/documentation/examples/hello.ss

#lang scheme/base
(provide (all-defined-out))
(define interface-version 'v1)
(define timeout +inf.0)

(define the-text "Hello, Web!")

(define (start initial-request)
  `(html (head (title ,the-text))
         (body ([bgcolor "white"])
               (p ,the-text))))