(define list-flatten
(lambda (l)
(cond ((null? l)
'())
((atom? l)
(list l))
(#t (append (flatten (car l)) (flatten (cdr l ...
↧