1 665c255d 2023-08-04 jrmu (define (count-leaves t)
2 665c255d 2023-08-04 jrmu   (accumulate + 0 (map (lambda (x) 1)
3 665c255d 2023-08-04 jrmu 		       (enumerate-tree t))))