import Data.Bool  (bool)
import Data.Maybe (fromMaybe)

import qualified Data.List as L

main :: IO ()
main = do
    s <- getLine
    answer $ solve s

type Answer = Bool
answer :: Answer -> IO ()
answer = putStrLn . bool "No" "Yes"

solve :: String -> Answer
solve s = False `fromMaybe` do
    c <- headMay $ L.elemIndices 'C' s
    f <- lastMay $ L.elemIndices 'F' s
    return $ c < f

headMay, lastMay :: [a] -> Maybe a
headMay [] = Nothing
headMay xs = Just $ L.head xs

lastMay [] = Nothing
lastMay xs = Just $ L.last xs
