#!/usr/ug/bin/perl5

my $linecount = 48;

my @lines;
my $head;
my @groups;


my $lx;
my $ly; my $char;
my $line;

while (1) {
  last if eof(STDIN);
  $head = <STDIN>;
  last if eof(STDIN);
  my $ln;
  foreach $ln (1..$linecount) {
    $lines[$ln] = <STDIN>;
    last if eof(STDIN);
  }
  last if eof(STDIN);

  my $ok;
  $ok = 1;

  my @cor;
  $lines[4] =~ /^\s*([A-Z]).*([A-Z])   \s*    ([A-Z]).*([A-Z])\s*$/;
  $cor[0] = $1;
  $cor[1] = $2;
  $cor[2] = $3;
  $cor[3] = $4;
  $lines[44] =~ /^\s*([A-Z]).*([A-Z])    \s*   ([A-Z]).*([A-Z])\s*$/;
  $cor[4] = $1;
  $cor[5] = $2;
  $cor[6] = $3;
  $cor[7] = $4;
  $ok = 0 if ($cor[0] gt $cor[1]);
  $ok = 0 if ($ok == 1 and $cor[0] gt $cor[2]);
  $ok = 0 if ($ok == 1 and $cor[2] gt $cor[3]);
  $ok = 0 if ($ok == 1 and $cor[0] gt $cor[4]);
  $ok = 0 if ($ok == 1 and $cor[0] gt $cor[5]);
  $ok = 0 if ($ok == 1 and $cor[2] gt $cor[6]);
  $ok = 0 if ($ok == 1 and $cor[2] gt $cor[7]);
 
  if ($ok == 1) {
    print $head;
    print @lines;
  }
}