#! /usr/bin/gawk -f
# Last edited on 2000-01-22 19:05:38 by stolfi

(FNR==1){
  for(i=1;i<=8;i++){tot[i] = $(i);}
  print;
} 

(FNR==2){
  for(i=1;i<=8;i++){stt[i] = $(i);}
  print;
} 

END{
  printf "    ";
  for(i=1;i<=8;i++){printf " %5.1f%% ", 100.0*stt[i]/tot[i];} 
  printf "Percent\n";
}