RosettaCodeData/Task/Mutual-recursion/TI-89-BASIC/mutual-recursion.basic

Define F(n) = when(n=0, 1, n - M(F(n - 1)))
Define M(n) = when(n=0, 0, n - F(M(n - 1)))