{-# LANGUAGE ScopedTypeVariables #-}

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

main :: IO ()
main = do
    [_, s, _] <- words <$> getContents
    putStrLn $ concat ["A", [head s], "C"]
