+sub showcolhead {
+ print '<col>';
+ my @spans;
+ $spans[ $_ > 10 ]++ for @_;
+ print "<colgroup span=$_>" for @spans;
+ print '<thead><tr><th>';
+ for (@_) {
+ print '<th>', $_ < 36 ? $char[$_] : $char[35].'+'.$char[$_ - 35];
+ print " <small>($_)</small>" for join(', ',
+ $RADIXNAME{$_} // (),
+ $_ >= 10 ? "base$_" : (),
+ ) || ();
+ }
+ say '</thead>';
+}
+