1 def fact(n) =

     2   (if n == 0 then 1 else n * fact(n - 1));

     3 

     4 def facT(n, acc) =

     5   if n == 0 then acc else facT(n - 1, n * acc);

     6 

     7 def facTi(n) = facT(n, 1);

     8 

     9 //fact(10)

    10 //facTi(10)

    11 

    12 write(facTi(6))

    13 

    14 // a simple factorial program

    15 // (including a tail recursive version)