my $i = 0;
my $n = my $m = 1;
while($n == $m) {
	$n <<= 1;
    $m *= 2;
    $i++;
}
print "different for $m (2**$i)\n";