rebol[]while[i: input][v: do i print v + 1 + mod v 2]