10 FOR i% = 1 TO 15
      20   PRINT FNcatalan(i%)
      30 NEXT
      40 END
      50 DEF FNcatalan(n%)
      60   IF n% = 0 THEN = 1
      70   = 2 * (2 * n% - 1) * FNcatalan(n% - 1) / (n% + 1)