{
    f=$1;cl=substr(f,5,4);
#    print f" "cl
    while (getline<f){
	cs=$2;getline<f;s=$1;
#print cs" "s
	ns[s]++;
	nc[cl]++;
	tc[cl]+=cs;
	h[s,cl]=cs;
    }
    close(f)
}END{
    for (cl in nc) {
	printf("%s\tnorm_%s\t",cl,cl);
    }
    printf("\n");
    for (s in ns){
	tr=0;
	for (cl in nc) {
	    tr+=h[s,cl];
	}
	if (tr>1) {
	    for (cl in nc) {
		printf("%d\t",h[s,cl]);
		printf("%f\t",h[s,cl]/tc[cl]);
	    }
	    printf("%s\t%d\n",s,tr);       
	}
    }
 }