uses crt;
var a,b:array[1..1000] of word;
i,n:word;
st:string;
begin
clrscr;
n:=0;
readln(st);
while pos(' ',st)<>0 do delete(st,pos(' ',st),1);
if st[1]=' ' then delete(st,1,1);
if st[length(st)]<>' ' then st:=st+' ';
while pos(' ',st)<>0 do
begin
inc(n);
val(copy(st,1,pos(' ',st)-1),a[n]);
delete(st,1,pos(' ',st));
end;
for i:=1 to n do read(b[i]);
for i:=1 to n do write(b[i],a[i]);
readln;readln;
end.