# Program 1, the server:
socket -server acceptit 12345
proc acceptit {chan ca cp} {
  after 100 "sendit $chan"
}
proc sendit {chan} {
  puts $chan hi!
  close $chan
}
vwait forever
