+<hr>
+
+<h2>Duplication (2ⁿ)</h2>
+<table>
+<:
+sub showint {
+ my ($int, $radix) = @_;
+ my @digits;
+ while ($int >= 1) {
+ push @digits, $char[$int % $radix];
+ $int /= $radix;
+ }
+ splice @digits, 3 * $_, 0, ' ' for reverse 1 .. @digits/3;
+ return join '', reverse @digits;
+}
+
+@cols = grep { not $_ ~~ [2,8,16] } @cols, 36;
+print '<tr><th>';
+print '<th>', $_ for @cols;
+
+for my $n (3 .. 16, 18, 20, 24, 30, 32, 36, 40, 48, 50, 60, 64) {
+ print '<tr>';
+ print '<th>', $n;
+ for my $radix (@cols) {
+ print '<td style="text-align:right">', showint(2 ** $n, $radix);
+ }
+ print '<th>', {
+ 4 => 'nibble',
+ 8 => 'octet',
+ 16 => '2o',
+ 24 => '3o',
+ 32 => '4o',
+ 40 => '5o, Tebi',
+ 48 => '6o',
+ 64 => 'o²',
+ 10 => 'kibi',
+ 20 => 'Mebi',
+ 30 => 'Gibi',
+ 50 => 'Pebi',
+ 60 => 'Exbi',
+ 70 => 'Zebi',
+ 80 => 'Yobi',
+ }->{$n} // '';
+}
+
+:></table>