%begin
%integer %function ackermann(%integer m,n)
  %result = n+1 %if m = 0
  %result = ackermann(m-1,1) %if n = 0
  %result = ackermann(m-1,ackermann(m,n-1))
%end

%owninteger i,j,k,k1,t1,t2
  k = 16;  k1 = 1
  %for i = 1,1,6 %cycle
    t1 = cputime
    j = ackermann(3,i)
    t2 = cputime
    %if j # k-3 %then printstring("Wrong result!  ")
    print((t2-t1)/1000,4,3)
    print(3000*(t2-t1)/(512*k1-15*k+9*i+37),4,3)
    newline
    k1 = 4*k1;  k = 2*k
  %repeat
%endofprogram