import Control.Applicative ((<$>), (<*>), (<*), (*>), (<$))
import Control.Monad
import Data.List

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

solve :: String -> String
solve s
  | null ci = "No"
  | null fi = "No"
  | head ci < last fi = "Yes"
  | otherwise = "No"
  where
    ci = elemIndices 'C' s
    fi = elemIndices 'F' s
