Imports System

Public Module Module1

    Public Sub Main()

        dim n1 as integer

        Do

        n1 = console.ReadLine()

        console.WriteLine(2*n1)

        Loop until n1 = -1

    End Sub

End Module