Imports System

Public Module Module1

    Public Sub Main()

        Dim n as integer

        Console.WriteLine("Enter Number")

        n= console.readline()

        do

            Console.WriteLine(2*n)

            n=Console.ReadLine()

        Loop until n = -1

    End Sub

End Module