(define (tri-fusion L)
  (if (or (null? L) (null? (cdr L)))
      L
      (separe-et-applique
       L tri-fusion fusion '() '())))