local fn CatalanNumbers( levels as int )
  int k, n
  double num, den, cat

  printf @"1"

  for n = 2 to levels
    num = 1 : den = 1
    for k = 2 to n
      num *= ( n + k )
      den *= k
      cat = num / den
    next
    printf @"%.f", cat
  next
end fn

fn CatalanNumbers( 30 )

HandleEvents