sub factorial {
    use integer;
    die "Math error: $!" if $_[0] < 0;
    $_[0] ? $_[0] * factorial( $_[0] - 1 ) : 1 ;
}