#!/usr/bin/perl

$ccc = 0;

while ($ddd = <STDIN>) {
  chomp $ddd;
  $ddd =~ s/^(\d+) //;
  $line = $ddd;
  $numm = $1;
  print STDERR $numm, " ";
  print STDERR $ddd, "\n";
  @love = `./cryptsum1.pl '$ddd'`;
  $count = 0;
  foreach $ww (@love) {
    $tah = canon($ww);
    $hash{$tah} = "" if (!defined $hash{$tah});
    $hash{$tah} .= $line . "; ";
    $count++;
    print STDERR "." if ($count % 10 == 0);
  }
  print STDERR "\n";

  open FHAND,">partial.$ccc";
  $ccc++;
  foreach (sort keys %hash) {
    print FHAND "$_ $hash{$_}\n";
  }
  close FHAND;
}

sub canon {
  my @stuff = split " ", $_[0];
  my @dah = ('?','?','?','?','?','?','?','?','?','?');
  my $let = '?';
  foreach (@stuff) {
    if ($_ ge '0' and $_ le '9') {
      $dah[$_] = $let;
    } else {
      $let = $_;
    }
  }
  return join('',@dah);
}

foreach (sort keys %hash) {
  print "$_ $hash{$_}\n";
}