{
    my ($end, $curr, $result);
    my $_factorial;
    $_factorial = sub {
        return $result if $curr > $end;
        $result *= $curr++;
        $_factorial->();
    };

    sub fact4 {
        ($end, $curr, $result) = (shift, 1, 1);
        $_factorial->();
    }
}