program sample
	implicit none
    character(len=10) :: x
    
    read(*,*) x
    
    if (x(1:4) =='YAKI') then
    	write(*,*) 'Yes'
    else
    	write(*,*) 'No'
	end if

    stop
end program sample
