program prob11
    implicit none
    character(len=4) :: S
    read(*,*) S
    if(S == "YAKI")then
        write(*,*) "Yes"
    else
        write(*,*) "No"
    end if

    stop
contains
end program prob11