# PCASTLI version 2.1.1

fact = function(x)
{
   if (x == 1) return(1)
   return(x * fact(x - 1))
}

fact(1)
fact(2)
fact(3)
fact(4)