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

solve :: String -> String
solve str = go (dropWhile (/= 'C') str)
  where
    go :: String -> String
    go [] = "No"
    go (s:ss)
      | s == 'F' = "Yes"
      | otherwise = go ss
