void local fn Euler
  long   n = 10000000, k
  double a, h = 1.0

  for k = 2 to n
    h += 1 / k
  next
  a = log( n + 0.5 + 1 / ( 24 * n ) )

  printf @"From the definition, err. 3e-10"
  printf @"Hn    %.15f", h
  printf @"gamma %.15f", h - a
  printf @"k = %ld\n", n
  printf @"C     %.15f", 0.5772156649015328
end fn

CFTimeInterval t
t = fn CACurrentMediaTime
fn Euler
printf @"\vCompute time: %.3f ms",(fn CACurrentMediaTime-t)*1000

HandleEvents