1 (define (count-leaves t)
2   (accumulate + 0 (map (lambda (x) 1)
3 		       (enumerate-tree t))))