Create main.tcl