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