Update and rename ex_04.tcl to p4.tcl