Create ex_05_b.tcl