# Now do the sort relying on the key we computed.  Note that as
# the compare function is still non-trivial, I don't write its
# body in the same line as the sort, because that's ugly. 
sub show_compare {
	my($a, $b) = @_;
	return $$a{sortflag} cmp $$b{sortflag} || 
		my_sort($$a{name}, $$b{name}, "article");
}
our @showtab_sorted = sort { show_compare($a, $b) } @showtab;