foreach my $n (1..100) {
	print "$n <\n" if ((100 * ($n ** 2)) < (2 ** $n));
	print "$n >\n" if ((100 * ($n ** 2)) > (2 ** $n));
}

$n = 14.5;
print "$n <\n" if ((100 * ($n ** 2)) < (2 ** $n));
print "$n >\n" if ((100 * ($n ** 2)) > (2 ** $n));