Funky Faktorial?
fac(n) = f1(1, n, 1);
Compare to everyoneÕs favorite:

fac(n) = n <= 1 ? 1 : n*fac(n-1);
f1(a, n, x) = x <= n ?          f1(a*x, n, x+1)
    : a;