Create ex_05_e.tcl