let rec fact1 n =
  match n with
    0 -> 1
  | n -> n * fact1 (n - 1);;

print_int (fact1 5);;

print_string "\n";;

let rec fact2 n = 
  if n < 2 then 1 
           else n * fact2 (n - 1);;

print_int (fact2 5);;

print_string "\n";;

let rec fact3 = function
  | 0 -> 1 
  | x -> x*fact3 (x-1);; 

print_int (fact3 5);;