RosettaCodeData/Task/Mutual-recursion/SETL/mutual-recursion.setl

program mutual_recursion;
    print("F", [f(n) : n in [0..14]]);
    print("M", [m(n) : n in [0..14]]);

    proc f(n);
        return {[0,1]}(n) ? n - m(f(n-1));
    end proc;

    proc m(n);
        return {[0,0]}(n) ? n - f(m(n-1));
    end proc;
end program;