1#!/bin/sh
2# -*- tcl -*- \
3exec tclsh "$0"  ${1+"$@"}
4
5package require comm
6package require tie
7
8set id [lindex $argv 0]
9
10array set sender {}
11tie::tie  sender remotearray \
12	server {comm::comm send} $id
13
14proc ExecChanges {list} {
15    if {![llength $list]} exit
16
17    uplevel #0 [lindex $list 0]
18    after 100 [list ExecChanges [lrange $list 1 end]]
19}
20
21after 2000 {ExecChanges {
22    {set sender(a) 0}
23    {set sender(a) 1}
24    {set sender(b) .}
25    {unset sender(a)}
26    {array set sender {xa @ xb *}}
27    {array unset sender x*}}}
28
29vwait forever
30