Imports System

Public Module Module1

    Public Sub Main()

        dim n1 as integer

        dim n2 as integer

        do while n1 <> -1

            n1 = console.ReadLine()

            n2 = n2 + n1

        loop

        console.WriteLine(n2)

    End Sub

End Module