d = 1234567
dim b = {-d, -d+1, -2, -1, 0, 1, 2, d-2, d-1}
for i = 0 to b[?]-1
print b[i]; " -> "; -b[i]
next i