#!/usr/bin/perl

@dub = (0,5,2,7,4,1,6,3);

@lines = <STDIN>;

chomp(@lines);

$row = 0;
foreach $line (@lines) {
  @dat = split("\t", $line);
  shift @dat;
  foreach $col (0..7) {
    if ($col == $dub[$row]) {
      if ($dat[8] > $dat[$col]) { 
        $value[$row][$col] = $dat[$col] * 10 + $dat[8];
      } else {
        $value[$row][$col] = $dat[8] * 10 + $dat[$col];
      }
    } else {
      $value[$row][$col] = $dat[$col];
    }
  }
  $row++;
}

foreach $row (0..7) {
  $value[$row][8] = $value[$row][0];
}

foreach $col (0..8) {
  $value[8][$col] = $value[0][$col];
}

#foreach $row (0..8) {
#  foreach $col (0..8) {
#    print $value[$row][$col];
#    print ",";
#  }
#  print "\n";
#}

sub whomp {
  foreach $col (0..8) {
    print "\t";
    if ($col % 2 == 0 and $_[$col] < 10) {
      print $_[$col];
    }
  }
  print "\n";
  foreach $col (0..8) {
    print "\t";
    if ($col % 2 == 1 and $_[$col] < 10) {
      print $_[$col];
    }
  }
  print "\n";
  print "\n" x 8;
}
sub dwhomp {
  foreach $col (0..8) {
    print "\t";
    if ($col % 2 == 0 and $_[$col] > 10) {
      print $_[$col];
    }
  }
  print "\n";
  foreach $col (0..8) {
    print "\t";
    if ($col % 2 == 1 and $_[$col] > 10) {
      print $_[$col];
    }
  }
  print "\n";
  print "\n" x 8;
}

whomp(@{$value[0]});
whomp(@{$value[2]});
whomp(@{$value[4]});
whomp(@{$value[6]});
whomp(@{$value[8]});
whomp(@{$value[1]});
whomp(@{$value[3]});
whomp(@{$value[5]});
whomp(@{$value[7]});
dwhomp(@{$value[0]});
dwhomp(@{$value[2]});
dwhomp(@{$value[4]});
dwhomp(@{$value[6]});
dwhomp(@{$value[8]});
dwhomp(@{$value[1]});
dwhomp(@{$value[3]});
dwhomp(@{$value[5]});
dwhomp(@{$value[7]});