**TI89**mainRfreqD¥Zê() Prgm dist[5]list5 dist[6]list6 seq(list5[1],i,1,list6[1])list1 2j While jœdim(list5) augment(list1,seq(list5[j],i,1,list6[j]))list1 j+1j EndWhile NewData dist,list1,dist[2],dist[3],dist[4],dist[5],dist[6] EndPrgm äåÜ*M