add: count-leaves.scm