Merge List in Scheme

(define (merge a b)
  (if (null? a)
      b
      (if (null? b)
          a
          (if (< (length (car a)) (length (car b)))
              (append (list (car a)) (merge (cdr a) b))
              (append (list (car b)) (merge (cdr b) a))
              ))))