Strange code (integral?)

1→C:1→B:1→E
Prompt N,K
"(→Str1
While N
B/K^E
If 1=abs(Ans
Str1+eval(Ans→Str1
Str1+"X→Str1
If N≠1
Ans+"^"+eval(N→Str1
Ans+sub("+-",C+1,1->Str1
NB→B:N-1→N:E+1→E
not(C→C
End
Str1+eval(B/K^E)+")*e^(
If K≠1
Ans+eval(K
Ans+"X)+C