multi max (Str *@candidates) { 
    reduce {$^a gt $^b ?? $^a :: $^b} @candidates;
}

multi max (Num *@candidates) { 
    reduce {$^a > $^b ?? $^a :: $^b} @candidates;
}

##</code><code>##

sub max (*@args) { 
    if want~~Str { reduce {$^a gt $^b ?? $^a :: $^b} @args }
    else         { reduce {$^a > $^b ?? $^a :: $^b} @args }
}

$biggest_str = ~max @values;  # Str context, so use gt
$biggest_num = +max @values;  # Num context, so use >
$biggest_num =  max @values;  # scalar context, default to >


##</code><code>##

# Let call context decide...
multi max (*@args) { 
    if want~~Str { reduce {$^a gt $^b ?? $^a :: $^b} @args }
    else         { reduce {$^a > $^b ?? $^a :: $^b} @args }
}

# Let the user specify...
multi max (&compare, *@args) {
    reduce {compare($^a,$^b)>=0 ?? $^a :: $^b} @args;
}

$biggest_str    = ~max @values;
$biggest_num    = +max @values;
$biggest_num    =  max @values;        
$biggest_mag    =  max {abs $^a <=> abs $^b}  @values;
$biggest_lookup =  max {%hash{$^a} cmp %hash{$^b}  @values;