Create swisscex.tcl