#!/usr/bin/perl

foreach my $x (10, 20, 30, 50, 100, 1000, 1000000) {
	my @d = (
		log($x) / log(2),
		$x,
		$x * log($x) / log(2),
		$x ** 2,
		$x ** 3,
		2 ** $x
	);
	@d = map { $_ / 1000000000 } @d;
	print $x, "\t&", join("\t&", @d), "\n";
}
