import Control.Applicative
import Data.Char

main :: IO ()
main = do
    [a,b,c] <- words <$> getLine
    putStrLn $　solve a b c
    
solve :: String -> String -> String -> String
solve a b c = map (toUpper . head) [a, b, c]