q198450480

program q198450480;

var s, w, t: string;
    i: integer;

begin
  readln(s);
  readln(w);

  t := '';
  for i := 1 to Length(s) do
  begin
    if (s[i] = ' ') then
    begin
      if (t = w) then
      begin
        Writeln('YES');
        exit;
      end;
      t := '';
    end else begin
      t := t + s[i];
    end;
  end;

  Writeln('NO');
end.