Create sortnp.tcl