M2compiler-V1/tests/f_libimpl.mod

IMPLEMENTATION MODULE FLib;
PROCEDURE Fib(n : INTEGER) : INTEGER;
BEGIN
  IF n <= 1 THEN RETURN n ELSE RETURN Fib(n - 1) + Fib(n - 2) END
END Fib;
END FLib.