(require (lib "thread.ss"))
(define echo-port 23421)

(define (echo-server inport outport)
  (let ((v (read-line inport)))
    (when (not (eof-object? v))
      (display v outport)
      (display #\newline outport)
      (echo-server inport outport))))

(run-server echo-port echo-server #f)