Create tablelist.tcl