BEGIN {
    FS = "\([ \t]*,[ \t]*\|[ \t]+\)";
    endflg=0;
}
{
    if ($1~/#label/){
	if ($(NF)=="") NF--;
	NF--;
	count+=NF;
	num+=0;
	if ((count > num)&&(endflg==0)){
	    target=num+NF-count+2;
	    foxnum=scene*1000+num;
			label=sprintf("_v_%05d",foxnum);
	    sub($(target),label,$(target));
	    endflg=1;
	    printf("#label   %s",$2);
	    for(i=3;i<NF+2;i++){
		printf(", %s",$i);
	    }
	    printf("\n");
	}
	else print $0;
    }
    else print $0;
}