(define (producten bedrijf)
  (define (producten bedrijf) 
    (if (is-product? bedrijf)
        (list (list (hoofdcategorie bedrijf)
                    (omzetcijfer bedrijf)))
        (producten-in (deel-categorien bedrijf))))
  (define (producten-in bedrijf)
    (if (null? bedrijf)
        '()
        (append (producten (hoofdcategorie bedrijf))
                (producten-in (deel-categorien bedrijf)))))
  (producten bedrijf))
       
(define (producten bedrijf)
  (define (producten-in bedrijf)
    (if (null? bedrijf)
        '()
        (append (producten (hoofdcategorie bedrijf))
                (producten-in (deel-categorien bedrijf)))))
  (if (is-product? bedrijf)
      (list (list (hoofdcategorie bedrijf) 
                  (omzetcijfer bedrijf)))
      (producten-in (deel-categorien bedrijf))))