Create ex_05_d.tcl