module Main where



main :: IO()
main = do
  input <- getLine
  putStrLn $ solve input

solve :: String -> String
solve str = if subSolve str
  then "Yes"
  else "No"

subSolve :: String -> Bool
subSolve str = take 4 str == "YAKI"
