Create trial3a.tcl