var s:ansistring;ss:string;n,i:longint;
begin
assign(input,'subsequence.in');reset(input);
assign(output,'subsequence.out');rewrite(output);
read(s);
readln(n);
for i:=1 to n do
begin
readln(ss);
if pos(ss,s)<>0 then write('Yes') else write('No');
end;
close(input);close(output);
end.