+<h2>Radix economy</h2>
+<table>
+<:
+sub radix_economy {
+ my ($val, $radix) = @_;
+ return $radix * int(log($val) / log($radix) + 1);
+}
+
+use List::Util 'sum';
+print '<tr><th>';
+print '<th>', $_ for @morecols;
+for my $max (100, 255, 1024) {
+ print '<tr><th>⍳', $max;
+ for my $radix (@morecols) {
+ printf '<td style="text-align:right">%.1f',
+ sum(map { radix_economy($_, $radix) } 1 .. $max) / $max;
+ }
+}
+:></table>
+
+<h2>Reciprocal fractions (n⁻¹)</h2>