REBOL[]while[i: do input][print i // 2 + i + 1]