RosettaCodeData/Task/Mutual-recursion/OCaml/mutual-recursion.ocaml

let rec f = function
  | 0 -> 1
  | n -> n - m(f(n-1))
and m = function
  | 0 -> 0
  | n -> n - f(m(n-1))
;;