sort.tcl 5.6 KB