(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))))