(define (write-content content)
  ((##sys#slot (##sys#slot out 2) 3) out (format "Content-Length: ~a\r\n\r\n~a"
                                 (+ 4 (string-length content))
                                 content))
  (flush-output-port out))