PROGRAM ATCODER

implicit none
integer :: m,n,l,x,i,match
character(len=10) :: c

read(*,*) m,n
read(*,*) c

! ここに計算式

l=m+1
x=m+n+1
match=0

do i=1,x
 if(c(i:i)=="-")then
  match=match+1
 end if
end do

if(match/=1)then
 write(*,*) 'No'
else if(c(l:l)=="-")then
 write(*,*) 'Yes'
else
 write(*,*) 'No'
endif

! ここに出力結果


END PROGRAM ATCODER