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