+print "\nDetermining default option\n";
+
+if ($defcho && $defcho->{Index} > -1) {
+ print "default option was specified: $choices[$defcho->{Index}]\n";
+} elsif ($defcho) {
+ print "no default option\n";
+} else {
+ foreach my $try (qw(FD SQ NOTA)) {
+ $defcho = $choices{$try};
+ last if $defcho;
+ }
+ if ($defcho) {
+ print "guessed default option was: $choices[$defcho->{Index}]\n";
+ } else {
+ print "could not guess default option, assuming there is none\n";
+ }
+}
+
+my $defi = $defcho->{Index};
+die "FD has smaj?!" if $defcho->{Smaj};
+
+print "\nParsing devotee tally sheet ballots\n"
+ if @invotes_v > @invotes_cc;
+