import Data.Char
main = do
  [a,b] <- fmap (map read . words) getLine
  str <- getLine
  let isFormal = and( map isNumber (take a str ++ drop(a+1) str)) && length str == a+b+1 && str!!a == '-'
  putStrLn $ if isFormal then "Yes" else "No"