fac {
    my ($arg, $res) = ($_[0], 1);
    die "Negative argument to factorial\n" if $arg < 0;
    $res *= $_ for 1..$arg;
    return $res;
}