var s:string;c:char;i,j,k:word;begin
readln(s);repeat
j:=1-ord(eoln);read(c);k:=ord(c='_');inc(i,k);write((^j+c+s[max(1,i)])[1+k*j+j])until 1=0end.