**TI89**statsRkruskal¥Z¿() Prgm ClrIO DelVar list3 DelVar list4 DelVar list5 dim(b)list1 sum(seq(b[1,j],j,1,list1[2]))l 1k For j,1,list1[2] For i,1,b[1,j] a[i,j]list3[k] 1+kk EndFor EndFor SortA list3 list3list6:list3[1]-1list3[l+1] 1q:1i Lbl lbl1 While i