BEGIN {RS="";FS=","}
      {rec[++i]=$0; a=$1; sub("^@.*{","",a); b[i]=a", "i}
END   { n=asort(b)
	for (k=1;k<=n;k++)   {
        m=split(b[k],outb,","); ind=outb[m];
        print rec[ind+0] "\n" }
      }