Create ex_05_a.tcl