program example
	implicit none

	character(15) S
    integer :: i=1,j,wa=0,k
    
    read(*,*) S
    
    k=len_trim(adjustl(S))
    
    do
    	if (i>k) then
        	exit
        end if
        
    	j=index(S(i:),"o")
        
    	if(j/=0) then
        	wa=wa+1
            i=i+j
        else
        	i=i+1
        end if
    end do
    
    if(wa>=8) then
    	write(*,*) "Yes"

	else
    	if((15-k)+wa>=8) then
        	write(*,*) "Yes"
    	else
        	write(*,*) "No"
        end if
    end if
end program example