sub max {
  my $max = shift;
  $max = $max > $_ ? $max : $_ for @_;
  return $max
}