Create regtester.tcl