Create ex_01.tcl