(define (un-fringe l)
  (cond ((null? l) '())
        (else (cons (car l) (list (un-fringe (cdr l)))))))