(define (t1)
 (when (socket-receive-ready? s)
  (receive (n data host port) (udp-recvfrom s 128)
           (print "Got " n " bytes of data from " host)))
 (thread-yield!)
 (t1))