Imports System.Collections.Generic
Imports System.Console
Module Program
    Sub Main()
        Dim tmp As String() = Split(Console.ReadLine())
        Dim a As String = tmp(0)
        Dim b As String = tmp(1)
        Dim c As String = tmp(2)
        Dim abc As String = a.Substring(0, 1) + b.Substring(0, 1) + c.Substring(0, 1)
        Console.WriteLine(abc.ToUpper())
    End Sub
End Module
