#! /usr/bin/gawk -f

BEGIN {
  abort = 0;
  if (name == "") 
    { printf "must specify \"-v name=NAME\"\n" > "/dev/stderr"; abort=1; exit 1; } 
  for (i=0;i<=25;i++) 
    {ct[sprintf("%c",i+65)]=0;} totct = 0; 
} 

/./ { 
  if (abort) { exit 1; }
  if (!($1 in ct)) 
    { printf "**BUG %s\n", $0 > "/dev/stderr"; exit 1;} 
  ct[$1]++; 
  totct++;
} 

END { 
  if (abort) { exit 1; }
  printf "%-6s", name; 
  for (i=0;i<=25;i++) 
    { printf " %2d", int((99*ct[sprintf("%c",i+65)])/totct + 0.499999);} 
  printf "\n"; 
}