(use intarweb socket)

(define listener (socket af/inet sock/stream))
(socket-bind listener (inet-address "127.0.0.1" 8080))
(socket-listen listener 10)

(let accept ((conn (socket-accept listener)))
  (define-values (i o) (socket-i/o-ports conn))
  (set! (tcp-no-delay? listener) #t)
  (set! (so-reuse-address? listener) #t) 

  (write (read-request i)) ; errors

  ; - snip -
  )

; - snip -