> NFacI:=proc(n)
local i,r;
r:=1;
for i from n to 1 by -1 do
  r:=(r*i);
od;
return r;
end proc:
> NFacI(3);

> NFacR:=proc(n)
if n>1 then
 return (n*NFacR(n-1));
else return 1;
fi;
end proc:
> NFacR(5);

> restart;
> fibo:=proc(n)
if n>1 then return fibo(n-1)+fibo(n-2);
else return 1;
fi;
end proc:
> fibo(2);

> restart;
> pow:=proc(n,p)
if p>1 then return n*pow(n,p-1);
else return n;
fi;
end proc:
> pow(2,3);

>