gistfile1.txt

(define (fringe x)
  (define (loop x acc)
    (cond ((null? x) acc)
          ((not (pair? x)) (cons x acc))
          (else (loop (car x) (loop (cdr x) acc)))))
  (loop x '()))