测试测试测

let rec fact n =
  if n > 0 then
    n * fact (n - 1)
  else
    1
;;