program sample
	implicit none
    integer :: count,i
    character(len=3) :: a,b
    read(*,*) a
    
    if(a=='ABC') then
    	write(*,*) 'ARC'
    else
    	write(*,*) 'ABC'
    end if
    stop
end program sample

