main :: IO ()
main = do
  s <- getLine
  putStrLn $ if solve s 0
    then "Yes"
    else "No"

solve :: String-> Int -> Bool
solve "" n = n == 2
solve (c:cs) n = case n of
  0 -> if c == 'C' then solve cs 1 else solve cs 0
  1 -> (c == 'F') || solve cs 1
  _ -> False
