REBOL[]loop 100[print[n: do input"= 6 *"round n / 6 pick"+-"n // 3 1]]