Count-leaves as an accumulation

Redefine count-leaves from section 2.2.2 as an accumulation:

(define (count-leaves t)
  (accumulate   (map  )))

---