;; client bit

(import srfi-13
        udp
        utf8
        (chicken process-context))

(define host "95.216.214.66")
(define port 42069)

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

(main (command-line-arguments))