Update p3.tcl