#!/usr/bin/perl -w

for (;;) {
    $_ = <>;
    if (m/^\| /) {
	if (s/ _?[Ss]eats=(\d+)\s/ /) {
	    print STDERR "# openstv-run-election -s $1\n";
	}
	die if m/ [A-Z]/;
	warn if m/ [a-z]/;
    } elsif (s/^\w+ = [^|]+ \|//) {
	die if m/ [A-Z]/;
	warn if m/ [a-z]/;
    } elsif (s/^\w+ \: ([^|]*) \|//) {
	print $1,"\n" or die $! if length $1;
	die if m/ [A-Z]/;
	warn if m/ [a-z]/;
    } elsif (m/^\.$/) {
	last;
    } else {
	die;
    }
}