make_call (sub {
        my $factor = $_[1];
   
        return $factor > 1
            ? $_[0]->($_[0], $factor-1) * $factor
            : 1;
    }, $_);