sub ceil {
  my $n = shift;
  int($n) + ($n > int($n) ? 1 : 0);
}