FOR i = 1 TO 15
    PRINT i;" ";catalan(i)
NEXT

FUNCTION catalan(n)
 catalan = 1
 if n <> 0 then catalan = ((2 * ((2 * n) - 1)) / (n + 1)) * catalan(n - 1)
END FUNCTION