(use chicken-syntax)
(use tcp-server)
(use srfi-4)

(define v (make-u8vector (* 1024 10) 100))

((make-tcp-server
  (tcp-listen 8080)
  (lambda ()
    (read-line)
    (write-u8vector v)))
 #f)