PROGRAM  "Find limit of recursion"

DECLARE FUNCTION  Entry ()
DECLARE FUNCTION  Recursion(n)

FUNCTION  Entry ()
    Recursion (0)
END FUNCTION

FUNCTION  Recursion (i)
    PRINT i
    Recursion (1 + i)

END FUNCTION
END PROGRAM