Count-leaves в виде накопления

Переопределите count-leaves из раздела 2.2.2 в виде накопления:

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

---