list-and-var-sample.tcl 2.69 KB