for my $radix (@morecols) {
printf '<td style="text-align:right">%.1f',
sum(map { radix_economy($_, $radix) } 1 .. $max) / $max;
for my $radix (@morecols) {
printf '<td style="text-align:right">%.1f',
sum(map { radix_economy($_, $radix) } 1 .. $max) / $max;