Create translate.tcl