REBOL[]while[n: do input][print[n"= 6 *"round(n / 6)pick"+-"n // 3 1]]