# 1. Create and bind a socket
(def listen-sock (net/listen "127.0.0.1" 8080 :datagram))
(print "Server listening on 127.0.0.1:8080")

# 2. Receive the client's message
(def buff (buffer/new 1024))
(def recv-info (net/recv-from listen-sock 1024 buff))
(print "Server received: " buff " from port " ((net/address-unpack recv-info) 1))

# 3. Send "world" message from a new socket
(def world-msg "world")
(def new-sock (net/socket :datagram))
(net/send-to new-sock recv-info world-msg)
(print "Server sent: " world-msg)

(net/close listen-sock)
(net/close new-sock)

# 1. Create a socket (without binding)
(def client-sock (net/socket :datagram))
(def server-addr (net/address "127.0.0.1" 8080))
(print "Client socket created for server at 127.0.0.1:8080")

# 2. Send "hello" message to the server
(def hello-msg "hello")
(net/send-to client-sock server-addr hello-msg)
(print "Client sent: " hello-msg)

# 3. Receive the server's response
(def buff (buffer/new 1024))
(def recv-info (net/recv-from client-sock 1024 buff))
(print "Client received: " hello-msg " from port " ((net/address-unpack recv-info) 1))
(net/close client-sock)