Update tcloo_sample.tcl