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.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page