A c chat program with tcl/tk