Imports System
 
Public Class Test
	Public Shared Sub Main()
        Dim i As Long = 17
        Console.WriteLine((i and CLng(2 ^ 0)))
        Console.WriteLine((i and CLng(2 ^ 1)))
        Console.WriteLine((i and CLng(2 ^ 2)))
        Console.WriteLine((i and CLng(2 ^ 3)))
        Console.WriteLine((i and CLng(2 ^ 4)))
        Console.WriteLine((i and CLng(2 ^ 5)))
        Console.WriteLine((i and CLng(2 ^ 6)))
        Console.WriteLine((i and CLng(2 ^ 7)))
End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKICAgICAgICBEaW0gaSBBcyBMb25nID0gMTcKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgoaSBhbmQgQ0xuZygyIF4gMCkpKQogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKChpIGFuZCBDTG5nKDIgXiAxKSkpCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoKGkgYW5kIENMbmcoMiBeIDIpKSkKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgoaSBhbmQgQ0xuZygyIF4gMykpKQogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKChpIGFuZCBDTG5nKDIgXiA0KSkpCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoKGkgYW5kIENMbmcoMiBeIDUpKSkKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgoaSBhbmQgQ0xuZygyIF4gNikpKQogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKChpIGFuZCBDTG5nKDIgXiA3KSkpCkVuZCBTdWIKRW5kIENsYXNz