function u(){
    if (s>max[x]){
	max[x]=s;
    }
    ss=100-s;
    if (ss>min[x]){
	min[x]=ss;
    }
    o[x]++;so[x]+=s;
    so2+=s*s;
}
{
    n=split($2,a,"-");s=$1;
    x=a[1];u();
    for (i=2;i<n;i++){
	split(a[i],b,"rf");
	x="h"i"-rf"b[1];u();
	x="h"i"-"b[2];u();
    }
}END{
    for (x in o){
	print so[x]/o[x],x,o[x],100-min[x],max[x]
    }
 }