/* define a recursive function */
let
  /* calculate n! */
  function fact(n : int) : int =
    if  n = 0
      then 1
      else n * fact(n - 1)
in
  print_int(fact(10));
  print("\n")
end