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