sub max { # Numbers.
	my $max = shift;
	foreach ( @_ ) { $max = $_ if $_ > $max }
	return $max;
}