' Lire des mots et les réafficher en ordre inverse
Imports System

Class Mots
	Overloads Shared Sub Main(ByVal args() As String)

	Try 
		Dim n As Integer = 0

		Dim liste As String = Console.ReadLine()
		Dim mots() As String = Split(liste)

		For i As Integer = mots.Length-1 To 0 Step -1
			Console.WriteLine(mots(i))
		Next

		Catch ex As Exception
			Console.WriteLine(ex.Message) 
	End Try

	End Sub
End Class