var n, i, j, k : longint; &n

var
  n, i, j, k : longint;
  total_len : array[1..100] of longint;
  len : array[1..100, 1..3] of longint;
  a, b : array[1..100, 1..100] of char;
  c : array[1..100] of string[100];
begin
  i := 0;
  j := 0;
  k := 1;
  readln(n);
  for i := 1 to n do
  begin
    readln(c[i]);
    total_len[i] := length(c[i]);
  end;
  for i := 1 to n do
  begin
    j := 1;
    while (c[i, j] <> ':') do
    begin
      a[i, k] := c[i, j];
      k := k + 1;
      inc(j);
    end;
    len[i, 1] := k - 1;
    a[i, k] := chr(0);
    k := 1;
    for j := j + 1 to total_len[i] do
    begin
      b[i, k] := c[i, j];
      k := k + 1;
    end;
    len[i, 2] := k - 1;
    b[i, k] := chr(0);
    k := 1;
  end;
  for i := 1 to n do
  begin
    if (len[i, 1] >= len[i, 2]) then
      write('NO,')
    else
    begin
      k := 1;
      for j := 1 to len[i, 2] do
      begin
        if a[i, k] = b[i, j] then
          k := k + 1;
        if k > len[i, 1] then
          break;
      end;
      if j = len[i, 2] then
        write('NO,')
      else
        write('YES,');
    end;
  end;
  writeln;
end.