sicp-2-28.scm

(define (flatten lst)
  (if (null? lst)
      '()
      (let ((a (car lst)) (d (cdr lst)))
        (if (pair? a)
            (append (flatten a) (flatten d))
            (cons a (flatten d))))))
(define fringe flatten)