Clone client, Model One in Tcl

#
# Clone client Model One
#

lappend auto_path .
package require KVSimple

zmq context context
set upd [zmq socket updates context SUB]
$upd setsockopt SUBSCRIBE ""
$upd connect "tcp://localhost:5556"
after 200

while {1} {
set kvmsg [KVSimple new]
$kvmsg recv $upd
$kvmsg store kvmap
puts [$kvmsg dump]
}

$upd close
context term