module Main where
import Data.Maybe
import Data.List
main = do
  s <- getLine
  putStrLn $ if solve s
             then "Yes"
             else "No"

solve :: String -> Bool
solve xs = isJust  b
  where
    a = dropWhile (/='C') xs
    b = find (=='F') a
