sub round {
  my $n = shift;
  return $n unless $n;
  my $sign = $n <=> 0;
  return int( $n + $sign * 0.5);
}