Update p2.tcl