(define (separe-et-applique L f g L1 L2)
  (if (null? L)
      (g (f L1) (f L2))
      (separe-et-applique
       (cdr L) f g L2 (cons (car L) L1))))