(module incremental mzscheme
(require (lib "servlet.ss" "web-server"))
(provide (all-defined))
(define interface-version 'v1)
(define timeout +inf.0)
(define (start initial-request)
(send/finish
(make-response/incremental
200 "Okay" (current-seconds) #"text/html" '()
(lambda (output-chunk)
(output-chunk ""
"my-title\n")
(output-chunk "The first paragraph
\n")
(sleep 4)
(output-chunk "The second paragraph
\n"))))))