program prob77
    implicit none
    character(3) :: s
    read(*,*) s
    if(s == "ARC")then
        write(*,*) "ABC"
    else
        write(*,*) "ARC"
    end if

    stop
contains
end program prob77