#MAXNUM = 15
Declare catalan()

If OpenConsole("Catalan numbers")
  catalan()
  Input()
  End 0
Else
  End -1
EndIf

Procedure catalan()
  Define k.i, n.i, num.d, den.d, cat.d

  Print("1 ")

  For n=2 To #MAXNUM
    num=1 : den =1
    For k=2 To n
      num * (n+k)
      den * k
      cat = num / den
    Next
    Print(Str(cat)+" ")
  Next
EndProcedure