{for(;a;sub(/.$/,e,a))r=gensub(a,"["a"]",1)RS r;a=$0}$0=r