+ @choices = sort $compare @choices;
+
+ print DEBUG "historically_prefer\n",
+ Data::Dumper->Dump([\@choices, \@stagerecord],
+ [qw(_@choices _@stagerecord)]);
+
+ foreach my $s (@choices) {
+ my $c = $s->{Cand};
+ printf " %6s %10s |", 'tiebrk', $c;
+ foreach my $sr (@stagerecord) {
+ my $p = pr($sr->{$c} // 0);
+ $p =~ s/\.0+\b//g;
+ $p =~ s/ //g;
+ print "$p|";
+ }
+ print "\n";
+ }
+