sub max {
  reduce {$a > $b ? $a : $b } @_;
}