(define (addup x)
  (if (< x 1000000)
      (+ (/ 1 x) (addup (+ x 1)))
      0.000001
  )
)

(addup 1)