A simple UDP server in clojure

receiver.clj

(import '(java.net DatagramSocket DatagramPacket))

(def socket (DatagramSocket. 5200))

(def running (atom true))
(def buffer (make-array Byte/TYPE 1024))
(defn parse [packet]
  (println (String. (.getData packet) 0 (.getLength packet))))

(defn start-receiver []
  (while (true? @running)
    (let [packet (DatagramPacket. buffer 1024)]
      (do
        (println "running")
        (.receive socket packet)
        (future (parse packet))))
    )
  )

(start-receiver)