On définit factorielle de 5, noté 5! par :
pour fac :n si :n=0[ret 1][ret :n*fac :n-1] fin ec fac 5 120 ec fac 6 720