(define (tel-einde vuurwerk kleurtje)
  (define (tel-einde vuurwerk kleurtje)
    (if (eq? (kleur vuurwerk) kleurtje) 
        (low-energies vuurwerk)
        (tel-einde-in (takken vuurwerk) kleurtje)))
  (define (tel-einde-in vuurwerk kleur)
    (if (null? vuurwerk)
        #f
        (or (tel-einde (car vuurwerk) kleurtje) (tel-einde-in (cdr vuurwerk) kleurtje))))
  (define (low-energies vuurwerk)
    (cond ((null? vuurwerk) 0)
          ((low-energy? vuurwerk) 1)
          ((atom? vuurwerk) 0)
          (else (+ (low-energies (car vuurwerk)) (low-energies (cdr vuurwerk))))))
  (tel-einde vuurwerk kleurtje))