program beginner;

var letters:array['a'..'z'] of boolean;
    word,lettersstr:string;
    i,n,j:integer;
    ic:char;
    ok:boolean;
begin


for ic:='a' to 'z' do letters[ic]:=false;
readln(lettersstr);
for i:=1 to length(lettersstr) do letters[lettersstr[i]] := true;

readln(n);
for i:=1 to n do
  begin
  readln(word);
  ok := true;
  for j:=1 to length(word) do if not letters[word[j]] then ok := false;
  if ok then writeln(word);
  end;

end.