reorder-items.tcl