**TI86** rfFREQfdseq(xStat(1),I,1,yStat(1))L1Ö2JÖWhile JdimL xStatÖaug(L1,seq(xStat(J),I,1,yStat(J))L1ÖJ+1JÖEnd•"