sub min
{
  my $r = shift;
  map { $r = $_ if $r > $_ } @_;
  return $r;
}