for {set i 0} { $i < 3000} {incr i} {
  ClientPut "Hello you"
}
ClientPut "I'am finished"
ClientPut [sicstime]