import Control.Applicative

main :: IO ()
main = do
  ss <- words <$> getLine
  putStrLn $ solve3 (head ss) (head (tail ss)) (head (tail (tail ss)))

solve3 :: String -> String -> String -> String
solve3 a b c = [head a, head b, head c]