b=$0RS{for(;a;$!sub(/.$/,e,a)=b)r=$!sub(a (c=$!sub(".*"a,e))A[$0=b],"["a"]"c)r;a=$0}$0=r