(define (send-packet socket header content)
 (assert (socket? socket))
 (assert (blob? header))
 (assert (blob? content))
 (assert (= fcgi-header-len (blob-size header)))

 (let ((content-length (blob-size content))
       (padding-length (modulo (+ fcgi-header-length content-length) 8)))
  (assert (< content-length 65535))
  (set-header! header 'content-length content-length)
  (set-header! header 'padding-length padding-length)
  (socket-send-all socket header)
  (socket-send-all socket content)
  (socket-send-all socket 
  )

 )