#!/usr/bin/env scheme-chicken

(define (thread-proc)
  (let lp ()
    (printf "thread awake\n")
    (thread-sleep! 1)
    (lp)))

(define (main prog+args)
  (thread-start! (make-thread thread-proc))
  (let ((listener (tcp-listen 55555)))
    (let lp ()
      (receive (inport outport) (tcp-accept listener)
	(close-input-port inport)
	(close-output-port outport))
      (lp))))