20.scm

   1 (define (fact n)\r
   2   (cond ((= n 1) 1)\r
   3         (else (* n (fact (sub1 n))))))\r
   4 \r
   5 (define (sum-digits n)\r
   6   (apply + (map (lambda (c)\r
   7                   (string->number (string c)))\r
   8                 (string->list\r
   9                  (number->string n)))))\r
  10 \r
  11 (sum-digits (fact 100))