import Data.List
main :: IO ()
main = do
  s <- getLine
  let
    ss = group $ sort s
    f z = filter (\x -> head x == z) ss
    t = f 'T'
    c = f 'C'
    p = f 'P'
    ans = concat $ t ++ c ++ p
  putStrLn ans