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