(define (fusion L1 L2)
   (if (null? L1) L2
       (if (null? L2) L1
           (if (< (car L1) (car L2))
               (cons (car L1)
                     (fusion (cdr L1) L2))
               (cons (car L2)
                     (fusion L1 (cdr L2)))))))