16.scm

   1 (define (power a n)\r
   2   (if (= n 0)\r
   3       1\r
   4       (* a (power a (sub1 n)))))\r
   5 \r
   6 (define (sum-digits n)\r
   7   (apply + (map (lambda (c)\r
   8                   (string->number (string c)))\r
   9                 (string->list\r
  10                  (number->string n)))))\r
  11 \r
  12 (sum-digits (power 2 1000))