tcloo.tcl + linked.tcl