#!/usr/ug/bin/perl

for $a0 (1..4) {
for $a1 (1..4) {
for $a2 (1..4) {
for $a3 (1..4) {
for $a4 (1..4) {
for $a5 (1..4) {
  @a = ($a0,$a1,$a2,$a3,$a4,$a5);
  @b = @a;

  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = mov(@a); @b = @a if (join('',@b) > join('',@a));

  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = mov(@a); @b = @a if (join('',@b) > join('',@a));

  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = mov(@a); @b = @a if (join('',@b) > join('',@a));

  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a);
  @a = mov(@a); @b = @a if (join('',@b) > join('',@a));

  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a);
  @a = rot(@a);
  @a = mov(@a); @b = @a if (join('',@b) > join('',@a));

  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));
  @a = rot(@a); @b = @a if (join('',@b) > join('',@a));

  print join('',@b,"\n");
}
}
}
}
}
}

sub inc {
  return 1 if ($_[0] == 4);
  return ($_[0] + 1);
}

sub dec {
  return 4 if ($_[0] == 1);
  return ($_[0] - 1);
}

sub rot {
  @old = @_;
  @new = @old;
  $new[0] = dec($old[0]);
  $new[1] = $old[2];
  $new[2] = $old[3];
  $new[3] = $old[4];
  $new[4] = $old[1];
  $new[5] = inc($old[5]);
  return @new;
}

sub mov {
  @old = @_;
  @new = @old;
  $new[0] = inc($old[1]);
  $new[1] = inc($old[5]);
  $new[5] = inc($old[3]);
  $new[3] = inc($old[0]);
  $new[2] = dec($old[2]);
  $new[4] = inc($old[4]);
  return @new;
}