import qualified Data.Text as T
import qualified Data.Text.IO as T
import qualified Data.Text.Read as T

main :: IO ()
main = do
  s <-  T.getLine :: IO T.Text
  let
    l = T.length . T.filter (== 'x') $ s :: Int
  putStrLn $ if l <= 7 then "YES" else "NO"
