Create ex_04.tcl