(define (expension n)
 (define (e n)
  (if (= n 1) (/ 1 2)
   (/ 1 (+ 2 (e (- n 1))))))
 (+ 1 (e n)))

(define (digits n)
 (if (< n 10) 1 (+ 1 (digits (quotient n 10)))))

(define (solve n)
 (if (= n 0) 0
  (+ (solve (- n 1))
   (let ((t (expension n)))
	(if (> (digits (numerator t)) (digits (denominator t))) 1 0)))))

(display (solve 1000))
(newline)