use strict;

for (my $n = 1; $n < 100 * 10000; ++$n) {
	my ($x2, $x3, $x4, $x5, $x6) = ($n * 2, $n * 3, $n * 4, $n * 5, $n * 6);
	if (array_match($n, $x2)
		&& array_match($x2, $x3)
		&& array_match($x3, $x4)
		&& array_match($x4, $x5)
		&& array_match($x5, $x6))
	{
		print "$n\n";
		exit(0);
	}
}

sub array_match
{
	my ($p1, $p2) = @_;
	
	my @a1 = sort { $a <=> $b } split(//, $p1);
	my @a2 = sort { $a <=> $b } split(//, $p2);
	
	for (my $i = 0; $i < @a1; ++$i) {
		if ($a1[$i] != $a2[$i]) {
			return 0;
		}
	}
	
	return 1;
}