set s [socket localhost 1111]
fconfigure $s -buffering line
for {set i 0} {$i<10} {incr i} {puts $s MSG:$i}
exit
