program bly(input,output);
var
  a:array['a'..'z',1..1000] of string;
  c:array['a'..'z'] of integer;
  b:array['a'..'z',1..1000] of integer;
  ch:char;
  st,st0:string;
  i,j,n,m:integer;
  z:integer;
  f1,f2:text;
begin
  assign(f1,'scanword.in');
  reset(f1);
  readln(f1,n);
  for i:=1 to n do begin
    readln(f1,st);
    readln(f1,z);
    ch:=st[1];
    inc(c[ch]);
    a[ch,c[ch]]:=st;
    b[ch,c[ch]]:=z;
  end;
  readln(f1,m);

  assign(f2,'scanword.out');
  rewrite(f2);
  for i:=1 to m do begin
    readln(f1,st0);
    ch:=st0[1];
    for j:=1 to c[ch] do begin
      if a[ch,j]=st0 then writeln(f2,b[ch,j]);
    end;
  end;
  close(f1);
  close(f2);
end.