program main
  implicit none
  integer :: a, b, i
  character(11) :: s
  logical :: ishyphen, needhyphen
  read(*, *) a, b
  read(*, *) s
  do i = 1, a + b
    ishyphen = (s(i:i) == "-")
    needhyphen = (i == a + 1)
    if (ishyphen .neqv. needhyphen) then
      write(*, "(a)") "No"
      stop 0
    end if
  end do
  write(*, "(a)") "Yes"
end program main
