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

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

(define (count-leaves t)
  (accumulate <??> <??> (map <??> <??>)))

---