import Data.List (elemIndex)
import Data.Maybe (fromMaybe)

main :: IO ()
main = interact solve

solve :: String -> String
solve s = case ans of True -> "Yes"; False -> "No"
  where
    ans = fromMaybe False $ do
      ci <- elemIndex 'C' s
      fi <- elemIndex 'F' $ reverse s
      let fi' = length s - fi - 1
      return $ ci < fi'