;; this is a dodgy flatten :( (define impc:ti:flatten-1 (lambda (lst) (cond ((null? lst) '()) ((list? (car lst)) (append (car lst) (impc:ti:flatten-1 (cdr lst)))) (else (list lst)))))