Create ex_09.tcl