program abc
	implicit none
	integer :: n,m,x
	integer :: an(10000)=0 
	character(len=3) :: fname,XXX,YYY
    
    XXX = "AAA"
    YYY = "BBB"

	read(*,*) fname
	if(fname == XXX) then
    	write(*,*) "No"
	else if(fname == YYY) then
    	write(*,*) "No"
    else
    	write(*,*) "Yes"
    endif
    
end program abc