Imports System

Public Module Module1

    Public Sub Main()

        dim n as integer

        dim number as integer

        n = console.readline

        Console.Writeline("")

        while n > number

            number = number +1

            console.WriteLine(number)

        end while

    End Sub

End Module