REBOL[]repeat n 999[t: 0 x: n while[7 // x > 0][x: round(x // 2 * 23 * x + x)/ 4 t: t + 1]print[join either x < 7[t]["Infinity"]","n]]