A sample NQP program

sub factorial($n) { 
    my $result := 1;
    if $n > 1 { 
        $result := $n * factorial($n - 1);
    }
    $result;
}   

say('5! = ', factorial(5));