Public d As Integer = 1234567
Public b As Integer[] = [-d, -d + 1, -2, -1, 0, 1, 2, d - 2, d - 1]
Public Sub Main()
For i As Integer = 0 To b.Count - 1
Print b[i]; " -> "; -b[i] ' * -1
Next
End