0. #lang racket
1.  
2. (define (interleave l1 l2)
3.      (match* (l1 l2)
4.           [(list ‘() ‘()) (list)]
5.           [((cons h1 t1) ‘()) l1]
6.           [(‘() (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 5

in: (list ‘ () ‘ ())