%begin

%integer T,K

%integerfn f(%integer x)
{}write(x,2); printsymbol(':')
  x = (T-x)*x
{}write(x,10); newline
  %result = x
%end

%integerfn sigma(%integer lo,hi)
%integer i,n=0
  n = n+f(i) %for i=lo,1,hi
  %result=n
%end

%cycle
  prompt("T="); read(T)
  prompt("K="); read(K)
  write(sigma(1,K),0); newline
%repeat

%endofprogram