Update and rename trial3a.tcl to p31.tcl