#!/usr/bin/perl

$|=1;

my %count;

while (<>) {
  chomp;
  my ($block, $group) = split /: /;
  push @{$blocks{$group}}, $block;
  $count{$group}++;
}

open F, ">", "images/groups.html" or die $!;

for my $g (qw(I II III IV V VI VII VIII IX X XI XII)) {
  {
    print F "<h1>Group $g</h1>\n";
    for my $b (@{$blocks{$g}}) {
      print F qq{<img src="$b.jpg">\n};
    }
  }
  printf "%-4s: %2d\n", $g, $count{$g};
}