procedure ratsseq(i)		#: reverse add and then sort sequence

   repeat {
      i +:= reverse(i)
      i := integer(csort(i))
      suspend i
      }

end