Update p1.tcl