Update and rename ex_06.tcl to p6.tcl