var
 a,b,i,ss1:longint;
 st:string;
begin
 readln(a,b);
 readln(st);
 for i:=1 to a+b+1 do
  if (i<>a+1) and not (st[i] in ['0'..'9']) then ss1:=1
                            else writeln('Yes');
end.