#! /usr/bin/gawk -f
# WdBD 2005L zadanie 3
# robert.budzynski@fuw.edu.pl

{
  gsub(/[[:punct:]]+/, " ");
  for (k=NF;k;k--)
  {
    if ($k~/^[[:alpha:]]+$/)
    {
      ile[length($k)]++;
      if (length($k)>max)
        max = length($k);
    }
  }
}

END{
  for (k=1;k<=max;k++)
  {
    print (k ":" ile[k]);
    chars += (k * ile[k]);
    words += ile[k];
    chars2 += (k * k * ile[k]);
  }
  print "#";
  print (chars/words ":" sqrt((chars2 - chars*chars/words)/words));
}