0. #lang racket
1.  
2. (define (interleave l1 l2)
3.   (match* (l1 l2)
4.           [(list (list) (list)) (list)]
5. [((cons h1 t1) (list)) l1]
6. [((list) (cons h2 t2)) l2]
7. [((cons h1 t1) (cons h2 t2)) (cons (cons h1 h2) (interleave t1 t2))]))
8.  
9. (define l1 (list 1 2 3))
10. (define l2 (list 4 5 6))

=>

eval:2:0: match: wrong number of match clauses, expected 2

and got 3

in: (list (list) (list))