uses crt;
var a, b: string;
    i, j: integer;
    fl: boolean;
begin
 clrscr;
 readln(a, b);
 fl:= false;
 for i:= 1 to length(a) do
  begin
   for j:= 1 to length(b) do
    if (a[i] = b[j]) then
     begin
      fl:= true;
      break;
     end;
    if (fl = false) then
     begin
      writeln('No');
      exit;
     end;
    fl:= false;
   end;
  writeln('Yes');
  readln;
end.