sub max {
    validate_pos( @_, { TYPE => ARRAYREF } );
    my ($list) = @_;
    my $max;
    for (@$list) {
        $max = $_ if ! defined $max || $_ > $max;
    }
    return $max;
}