"CODE" 35195;
  "PROCEDURE" NONEXP BESS KAPLUSN(A, X, NMAX, KAN);
  "VALUE" A, X, NMAX;
  "REAL" A, X; "INTEGER" NMAX; "ARRAY" KAN;
  "BEGIN" "INTEGER" N; "REAL" K1;
    NONEXP 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" NONEXP BESS KAPLUSN;
        "EOP"