BEGIN {fn="";k=0;n=0}
FILENAME!=fn {fn=FILENAME;++k}
k==1 {for(i=1;i<=NF;++i) {a[n,i]=$i} ; ++n}
k==2 {m=999999;t=0;
  for (j=0;j<n;++j) {
     s=0;
     for (i=1;i<=NF;++i) {
  	d=(a[j,i]-$i); 
	s+=d*d;
     }
     t+=s;
     if ( s<m ) {m=s;l=j}
  }
  print $0,m,t/n,l+1
}