let rec fact = function
  | 0 -> 1
  | n -> n * fact (n - 1)

let _ =
  Packed.Api.zero : = 0 ;
  Packed.Api.fact := fact

let rec fact = function
  | 0 -> 1
  | n -> n * fact (n - 1)

let _ =
  Packed.Api.zero : = 0 ;
  Packed.Api.fact := fact
