local fn BellNumbers( limit as long )
  long j, n = 1

  mda(0) = 1
  printf @"%2llu. %19llu", n, mda_integer(0)
  while ( n < limit )
    mda(n) = mda(0)
    for j = n to 1 step -1
      mda(j - 1) = mda_integer(j - 1) + mda_integer(j)
    next
    n++
    printf @"%2llu. %19llu", n, mda_integer(0)
  wend
end fn

fn BellNumbers( 25 )

HandleEvents