implicit none
integer :: a,b
character(11) :: s
integer :: i
read *,a,b
read *,s

do i = 1, a
   if (s(i:i) == '-') then
      write(*,'(a)') 'No'
      stop
   endif
enddo

if (s(a+1:a+1) /= '-') then
   write(*,'(a)') 'No'
   stop
endif

do i = a+2,a+1+b
   if (s(i:i) == '-') then
      write(*,'(a)') 'No'
      stop
   endif
enddo

write(*,'(a)') 'Yes'
stop
end