example4.tcl 237 Bytes