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            ;! cputime is in clocks_per_tick which is 1000000
    j = ackermann(3,i)
    t2 = cputime
    if j # k-3 then printstring("Wrong result!  ") and newline
    print((t2-t1){/1000},7,3)
    print(3000*(t2-t1)/(512*k1-15*k+9*i+37),7,3)
    newline
    k1 = 4*k1;  k = 2*k
  repeat
  printstring("Done."); newline
endofprogram