Imports System

Public Module Module1

    Public Sub Main()

        dim n1 as integer

        n1 = console.readline()

        for icount =1 to n1

        console.WriteLine(icount)

    next

    End Sub

End Module