' Bell numbers
CONST MAXN% = 14
DIM A&(MAXN% - 1)
FOR I% = 0 TO MAXN% - 1
  A&(I%) = 0
NEXT I%
N% = 0
A&(0) = 1
PRINT USING "B(##) = #########"; N%; A&(0)
WHILE N% < MAXN%
  A&(N%) = A&(0)
  FOR J% = N% TO 1 STEP -1
    A&(J% - 1) = A&(J% - 1) + A&(J%)
  NEXT J%
  N% = N% + 1
  PRINT USING "B(##) = #########"; N%; A&(0)
WEND
END