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