Imports System

Public Module Module1

    Public Sub Main()

        Dim s as string

        Do until s = "quit"

            s = Console.ReadLine()

            Console.WriteLine(s.ToUpper())

        Loop

    End Sub

End Module