import Data.Char

main :: IO()
main = do
    [a,b,c] <- words <$> getLine
    putStrLn $ getsolve a b c

getsolve :: String -> String -> String -> String
getsolve a b c = (toUpper (head a)):(toUpper (head b)):[toUpper (head c)]