Fill in the blanks by uru

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