main :: IO () main = do ha <- readLn :: IO Int hb <- readLn :: IO Int hc <- readLn :: IO Int if ha > hb then if hb > hc then putStrLn "A\nB\nC" else if ha < hc then putStrLn "C\nA\nB" else putStrLn "A\nC\nB" else if ha > hc then putStrLn "B\nA\nC" else if hb > hc then putStrLn "B\nC\nA" else putStrLn "C\nB\nA"