var
k,kousek:string;
i,y,m,n:integer;

begin

readln(k); (hlavní řetězec)
readln(n); (tady načítám řetězce)
for m:=1 to n do
readln(kousek);


y:=0;
i:=0;


repeat


i:=i+1;

repeat
y:=y+1;
if (y=length(k)) and (i<>length(kousek)) then
begin
writeln('NE');
break;
end;
until (kousek[i]=k[y]);

until (length(kousek)=i) or (y=length(k));
if (length(kousek)=i) and (y<=length(k)) then
writeln('ANO'); (Vypisuju ANO nebo NE, ale takhle je to jenom pro poslední řetězec, já to potřebuju pro všechny)



readln;

end.