import Data.List
import Data.Char
main :: IO ()
main = do
    _ <- getLine
    s <- getLine :: IO String
    putStrLn $
        if '-' `elem` s && all isDigit (delete '-' s)
            then "Yes" else "No"