(local l1 [list 1 2 3 4 5 6 7 8])
(define (q x) (begin (println x) (f x)))
(define (f x)
(match x
( [list? n ...] (q ...) )
( [list?] '() )
))
(f l1)