Imports System

Public Module Module1

    Public Sub Main()

        Dim x as integer

        Do

            x=console.ReadLine()

        loop until x=-1

​

    End Sub

End Module