BEGIN{RS="\n(\\$.)?1\n"}b=a{for(;$++i;)sub(/@i/,$i,b)}i=FS=ORS{a||a=$0}$0=b