import qualified Data.ByteString.Char8 as B

main :: IO ()
main = do
  s <- B.getLine
  putStrLn $ if solve s then "YES" else "NO"

solve :: B.ByteString -> Bool
solve s = 7 + (length $ B.elemIndices 'o' s) >= B.length s
