PRINT "Recursive:"!PRINT
FOR n = 0 TO 15
    PRINT n,"#######":catrec(n)
NEXT n
PRINT!PRINT

PRINT "Non-recursive:"!PRINT
FOR n = 0 TO 15
    PRINT n,"#######":catnonrec(n)
NEXT n

END

DEF catrec(x)
    IF x = 0 THEN
        temp = 1
    ELSE
        n = x
        temp = ((2*((2*n)-1))/(n+1))*catrec(n-1)
    END IF
    catrec = temp
END DEF

DEF catnonrec(x)
    temp = 1
    FOR n = 1 TO x
         temp = (2*((2*n)-1))/(n+1)*temp
    NEXT n
    catnonrec = temp
END DEF