Imports System

Public Module Module1

    Public Sub Main()

        dim a as integer

        a = console.readline()

        if a = 1010001 then

            console.writeline("你是智障")

            a = "" 

        Console.WriteLine("還想試別的啊")

        end if

    End Sub

End Module