Imports System

Public Module Module1

    Public Sub Main()

        dim num,ans as integer 'declare variables

        Do 

            num=Console.readline()

            ans=ans+num

        Loop while num<>-1

            ans+=1

            Console.WriteLine(ans)

    End Sub

End Module