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