A UDP echo server that stops on a message

#!ek9
defines module site.networkTypes.udpServer
  defines program
    UDPServer1()
      stdout <- Stdout()
      try
        -> udpConnection <- UDP(NetworkProperties(port: 4445))

        //The loop stops on a condition; the try closes the connection when it ends.
        serving <- true
        while serving and udpConnection?
          packet <- udpConnection.receive()
          if packet?
            if packet.content == "end"
              endPacket <- UDPPacket(packet.properties, "OK will stop Server")
              udpConnection.send(endPacket)
              serving: false
            else
              udpConnection.send(packet)

      stdout.println("UDP Server Complete")