      PROGRAM piyo
      IMPLICIT NONE
      character(3) :: s
      
      read*,s
      
      if( s(1:3)=='ABC' )then
        print*,'ARC'
      else
        print*,'ABC'
      end if
      
      
      
      
      
      END PROGRAM