Hello World server in Tcl

package require zmq

zmq context context
zmq socket responder context REP
responder bind "tcp://*:5555"

while {1} {
zmq message request
responder recv_msg request
puts "Received [request data]"
request close

zmq message reply -data "World @ [clock format [clock seconds]]"
responder send_msg reply
reply close
}
responder close
context term