sort.tcl 10 KB