Create ex_08.tcl