Create heapsort.tcl