(println "list/4")
(define (l4 s)
(match s
( [list? a ...] (begin (println :l4 space a) (l4 ...)) )
( [list?] (println :l4 space :done))
)
(l4 '[1 2 3 4 5 6])