Create ex_02.tcl