module Main where

algorithm :: Int -> String
algorithm score 
  | score < 1200 = "ABC"
  | otherwise = "ARC"

process :: [String] -> String
process ls = algorithm . read $ head ls

main :: IO ()
main = do
  input <- getContents
  putStrLn $ process (lines input)