sub max {
    my ($x, @xs) = @_;
    @xs ? ($x, max(@xs))[$x < max(@xs)] : $x
}