Create tcloo_sample.tcl