;; server bit

(import udp
        utf8)

(define host "localhost")
(define port 42069)

(define (main)
  (define s (udp-open-socket))
  (udp-bind! s #f port)
  (let loop ((s s))
    (receive (len str host port) (udp-recvfrom s 512)
      (when (= len 0)
        (loop s))
      (print host ":" port "(" len ")\t" str)
      (udp-sendto s host port (string-append "received: " str))
      (loop s))))

(main)