(define (sum-digits n)
 (if (= n 0)
  0
  (+ (remainder n 10)
   (sum-digits (floor (/ n 10))))))

(display (sum-digits (expt 2 1000)))
(newline)