**TI89**mainRranksumZV() Prgm ClrIO Disp "1 alt. xy","3 alt. xy" Input c dist[1]list1 dist[2]list2 SortA list1 SortA list2 augment(list1,list2)list3 SortA list3 dim(list1)m dim(list2)n For i,1,m+n 0list4[i] EndFor list3list6 augment(list3,{list3[1]-1})list3 1b 1i Lbl lbl1 While i<(m+n) If list3[i]