init.tcl