const fi='mess.inp';
      fo='mess.out';
var st:string;
    i,d,so:byte;
    stt: array [1..50] of byte;
    chu: array [1..50] of string;
begin
        assign(input,fi);
        reset(input);
        readln(st);
        for i:=1 to length(st) do if st[i] = ' ' then inc(so);
        inc(so);
        for i:=1 to so do read(stt[i]);
        close(input);
        inc(d);
        for i:= 1 to length(st) do
                if st[i] <> ' ' then chu[d]:= chu[d]+st[i]
                        else inc(d);
        assign(output,fo);
        rewrite(output);
        for i:=1 to so do
                write(chu[stt[i]],' ');
        close(output);

end.

uses crt;
var d,g:text; a:array[1..1000]of string; n,i,t:longint; s:string;
begin
clrscr;
   assign(d,'mess.inp');reset(d);
   readln(d,s); t:=1;
   for i:=1 to length(s) do
      If s[i]<>' ' then a[t]:=a[t]+s[i] else inc(t);
   assign(g,'mess.out');rewrite(g);
   for i:=1 to t do begin read(d,n); write(g,a[n],' '); end;
   close(g);
   close(d);
readln
end.