MODULE Fib;

PROCEDURE Fib (i: INTEGER) : INTEGER =
  BEGIN
    IF i <= 1 THEN RETURN 1
    ELSE RETURN Fib (i-1) + Fib (i-2); END;
  END Fib;

BEGIN
END Fib.