gistfile1.txt

(defn listen
    "UDP listener"
    [_]
    (let [buf (byte-array dgram-size)
          packet (DatagramPacket. buf dgram-size)]
        (dosync 
            (.receive @udp-sock packet)
            (println "Received packet: " (String. (.getData packet) 0 (.getLength packet)))))
   (send udp-listener listen))



(defn listen
    "UDP listener"
    [_]
    (let [buf (byte-array dgram-size)
          packet (DatagramPacket. buf dgram-size)
          strval (dosync (.receive @udp-sock packet) (String. (.getData packet) 0 (.getLength packet)))]
        (println "Received packet:" strval)
   (send udp-listener listen)))