Imports System

Public Module Module1

    Public Sub Main()

        Dim n As Integer

        Do until n < 0

            n = Console.ReadLine()

            console.writeLine(n*2)

        loop

    End Sub

End Module