pairBase :: String -> String
pairBase "A" = "T"
pairBase "T" = "A"
pairBase "C" = "G"
pairBase "G" = "C"
pairBase _ = "X"  -- (^_^;)


main :: IO ()
main = do
    b <- getLine
    putStrLn $ pairBase b