Update ex_02.tcl