#!/usr/bin/perl

@lines = <STDIN>;
chomp @lines;

print "Input done.\n";

$count = $#lines;

sub mmm {
  for $a (0..3) {
  for $b (0..3) {
    if ((substr $_[0], $a, 1) eq  (substr $_[1], $b, 1))  {
      return 1;
    }
  }}
  return 0;
}

for $h1i (0..$count) {
  $h1 = $lines[$h1i];

for $v1i ($h1i..$count) {
  $v1 = $lines[$v1i];
next if ( (substr $v1, 0, 1) ne (substr $h1, 0, 1));

next if ( (substr $v1, 1, 1) eq (substr $h1, 1, 1));
next if ( (substr $v1, 1, 1) eq (substr $h1, 2, 1));
next if ( (substr $v1, 1, 1) eq (substr $h1, 3, 1));
next if ( (substr $v1, 2, 1) eq (substr $h1, 1, 1));
next if ( (substr $v1, 2, 1) eq (substr $h1, 2, 1));
next if ( (substr $v1, 2, 1) eq (substr $h1, 3, 1));
next if ( (substr $v1, 3, 1) eq (substr $h1, 1, 1));
next if ( (substr $v1, 3, 1) eq (substr $h1, 2, 1));
next if ( (substr $v1, 3, 1) eq (substr $h1, 3, 1));

for $h2 (@lines) {
next if ( (substr $h2, 0, 1) ne (substr $v1, 1, 1));
next if ( mmm ($h1, $h2) );

next if ( (substr $h2, 1, 1) eq (substr $v1, 2, 1));
next if ( (substr $h2, 1, 1) eq (substr $v1, 3, 1));
next if ( (substr $h2, 2, 1) eq (substr $v1, 2, 1));
next if ( (substr $h2, 2, 1) eq (substr $v1, 3, 1));
next if ( (substr $h2, 3, 1) eq (substr $v1, 2, 1));
next if ( (substr $h2, 3, 1) eq (substr $v1, 3, 1));

for $v2 (@lines) {
next if ( (substr $v2, 0, 1) ne (substr $h1, 1, 1));
next if ( (substr $v2, 1, 1) ne (substr $h2, 1, 1));
next if ( mmm ($v1, $v2) );

next if ( (substr $v2, 2, 1) eq (substr $h1, 2, 1));
next if ( (substr $v2, 3, 1) eq (substr $h1, 2, 1));
next if ( (substr $v2, 2, 1) eq (substr $h1, 3, 1));
next if ( (substr $v2, 3, 1) eq (substr $h1, 3, 1));
next if ( (substr $v2, 2, 1) eq (substr $h2, 2, 1));
next if ( (substr $v2, 3, 1) eq (substr $h2, 2, 1));
next if ( (substr $v2, 2, 1) eq (substr $h2, 3, 1));
next if ( (substr $v2, 3, 1) eq (substr $h2, 3, 1));

for $h3 (@lines) {
next if ( (substr $h3, 0, 1) ne (substr $v1, 2, 1));
next if ( (substr $h3, 1, 1) ne (substr $v2, 2, 1));
next if ( mmm ($h1, $h3) );
next if ( mmm ($h2, $h3) );

next if ( (substr $h3, 2, 1) eq (substr $v1, 3, 1));
next if ( (substr $h3, 3, 1) eq (substr $v1, 3, 1));
next if ( (substr $h3, 2, 1) eq (substr $v2, 3, 1));
next if ( (substr $h3, 3, 1) eq (substr $v2, 3, 1));

for $v3 (@lines) {
next if ( (substr $v3, 0, 1) ne (substr $h1, 2, 1));
next if ( (substr $v3, 1, 1) ne (substr $h2, 2, 1));
next if ( (substr $v3, 2, 1) ne (substr $h3, 2, 1));
next if ( mmm ($v1, $v3) );
next if ( mmm ($v2, $v3) );

next if ( (substr $v3, 3, 1) eq (substr $h1, 3, 1));
next if ( (substr $v3, 3, 1) eq (substr $h2, 3, 1));
next if ( (substr $v3, 3, 1) eq (substr $h2, 3, 1));

  print STDERR "DEBUG $h1 $v1\n";
  print STDERR "DEBUG $h2 $v2\n";
  print STDERR "DEBUG $h3 $v3\n";
  print STDERR "DEBUG \n";

for $h4 (@lines) {
next if ( (substr $h4, 0, 1) ne (substr $v1, 3, 1));
next if ( (substr $h4, 1, 1) ne (substr $v2, 3, 1));
next if ( (substr $h4, 2, 1) ne (substr $v3, 3, 1));
next if ( mmm ($h1, $h4) );
next if ( mmm ($h2, $h4) );
next if ( mmm ($h3, $h4) );

for $v4 (@lines) {
next if ( (substr $v4, 0, 1) ne (substr $h1, 3, 1));
next if ( (substr $v4, 1, 1) ne (substr $h2, 3, 1));
next if ( (substr $v4, 2, 1) ne (substr $h3, 3, 1));
next if ( (substr $v4, 3, 1) ne (substr $h4, 3, 1));

  print "$h1 $v1\n";
  print "$h2 $v2\n";
  print "$h3 $v3\n";
  print "$h4 $v4\n";
  print "\n";
}
}
}
}
}
}
}
}