1 (defun count-leaves (tree)
2   (accumulate
3    (lambda (x y)
4      (+ y
5 	(if (consp x)
6 	    (count-leaves x)
7 	    1)))
8    0
9    tree))