rebol[]for i 1 40 1[print(i + 1)* i / 2]