sub round {
  my $n = shift;
  int($n + .5 * ($n < 0 ? -1 : 1));
}