(require 'stdlib)
(require 'rep.io.sockets)

(define (make-server)
  (socket-local-server
   "z-local-socket"
   (lambda (socket)                     ; callback
     (let ((remote (socket-accept socket standard-output)))
       (puts "callback: socket accept")
       (puts remote)
       (write remote "server: reply\n")))
   (lambda (socket)                     ; sentinel
     (puts "sentinel")
     (close-socket socket))))

(define s (make-server))
(while t
  (puts "server: main-loop")
  (accept-socket-output-1 s 10))