import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Data.Char
import qualified Data.Set as S

main = do
  arr <- words <$> getLine
  putStrLn $ map (toUpper . head) arr
