(use srfi-18 tcp linenoise)

(define (listen)
  (define l (tcp-listen 12345))
  (define-values (i o) (tcp-accept l))
  (parameterize [(current-input-port i)]
    (let loop ()
      (let [(line (read-line))]
        (print line)
        (loop)))))

(define (spawn thunk)
  (let [(t (make-thread thunk))]
    (thread-start! t)))

(spawn listen)

(parameterize [(current-input-port (make-linenoise-port))]
  (repl))