rebol[]a: 1 repeat i 14[a: a * 4 -(a * 2 / i)print a]