use strict;
use warnings;

for (2 .. 9) {
	print "base $_: " . convert(162, $_), "\n";
}

sub convert {
	my ($value, $base) = @_;
	my $converted = "";
	while ($value) {
		$converted = ($value % $base) . $converted;
		$value = int($value / $base);
	}
	return $converted;
}