Imports System
Public Module Module1
Public Sub Main()
Dim a as String
Dim b as String
Do
a = Console.ReadLine
b = a.ToUpper()
Console.WriteLine(b)
Loop
End Sub
End Module