let d = 1234567

dim b[d * -1, d * -1 + 1, -2, -1, 0, 1, 2, d - 2, d - 1]

arraysize s, b

for i = 0 to s - 1

	print b[i], " : ", b[i] * -1

next i

end