sub roundup {
    my $n = shift;
    return(($n == int($n)) ? $n : int($n + 1))
}