"CODE" 35192;
  "PROCEDURE" BESS KAPLUSN(A, X, NMAX, KAN); "VALUE" A, X, NMAX;
  "REAL" A, X; "INTEGER" NMAX; "ARRAY" KAN;
  "BEGIN" "INTEGER" N; "REAL" K1;
    BESS KA01(A, X, KAN[0], K1); A:= A-1; X:= 2/X;
    "IF" NMAX > 0 "THEN" KAN[1]:= K1;
    "FOR" N:= 2 "STEP" 1 "UNTIL" NMAX "DO"
    KAN[N]:= KAN[N-2] + (A+N) * X * KAN[N-1]
  "END" BESS KAPLUSN

        "EOP"