import Data.List (sort, intersperse)

main :: IO ()
main = interact $ solve . map read . words

solve :: [Int] -> String
solve xs = intersperse '\n' $ map snd $ reverse . sort $ zip xs ['A','B','C']