sub ceil {
  my $n = shift;
  int($n) + ($n > int($n));
}

sub floor {
  my $n = shift;
  int($n) - ($n < int($n));
}