example/test-servlet.ss
#lang scheme/base
(require web-server/http/request-structs
         net/url
         )

(define (start request)
  `(p (b "A TEST SERVLET"
         ,(url->string (request-uri request)))))

(provide start)