#!/usr/bin/perl
my $total=();
while (<>)
{
  chop();
  if (/(.) (\d+-\d+)-\d+ \d+:\d+ .*/)
  {
      $total{"$2"}{"$1"}++;
  }
}

print "YYYY-MM:   F   O   E   C   G   U   W   A   M   R\n";

foreach $ts (sort {$a cmp $b} keys %total)
{
   print "$ts:";
   foreach $key ("F", "O", "E", "C", "G", "U", "W", "A", "M", "R")
   {
     printf("%4d", $total{$ts}{$key} ? $total{$ts}{$key} : 0);
   }
   print "\n";
}