Rename ex_01.tcl to p1.tcl