sub abv {
	my $avg = avg(@_);
	my @cands = ();
	foreach (@_) {
		($_ > $avg) and push(@cands, $_);
	}
	return @cands;
}