{-# LANGUAGE ScopedTypeVariables, LambdaCase #-}

import qualified Data.List as List
import qualified Data.Set as Set
import qualified Data.Char as Char

main :: IO ()
main = interact $  (++"\n") . map (Char.toUpper . head) . words