Imports System

Public Class Count_To
	Public Shared Sub Main() 
		Dim n As Integer, line as Integer
		line = Console.Readline()
		n = 0
		Do While n <> line
			n = n + 1
			System.Console.WriteLine(n)
		Loop
	End Sub
End Class