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