RosettaCodeData/Task/Mutual-recursion/Pure/mutual-recursion-1.pure

F 0 = 1;
M 0 = 0;
F n = n - M(F(n-1)) if n>0;
M n = n - F(M(n-1)) if n>0;